locked
Creation compte AD en masse RRS feed

  • Question

  • Bonjour,

    Je viens de créer 153 comptes AD avec un fichier ldif, savez s'il est possible de mettre un mot de passe à ces comptes ?
    Par défaut j'aimerais que tous ces comptes aient le même mot de passe

    Merci d'avance

    vendredi 23 décembre 2011 09:54

Réponses

  • ça y est !!

    en fait j'avais un espace sur la ligne 16

    par contre je suis obligé de mettre le " après strContainer, ce qui me parait logique....

    ENfin l'essentiel c'est que ça marche !

    Merci

    • Marqué comme réponse Bechir Gharbi samedi 24 décembre 2011 07:17
    vendredi 23 décembre 2011 15:00

Toutes les réponses

  • Salut,

    Tu peux utiliser ce script vbs, n'oublie pas de changer OUNAME et PASSWORD :

    ' SetPassword .vbs
    ' Sample VBScript Change Password in a named OU.

    ' -----------------------------------------------'
    Option Explicit
    Dim objOU, objUser, objRootDSE
    Dim strContainer, strDNSDomain, strPassword

    ' Bind to Active Directory Domain
    Set objRootDSE = GetObject("LDAP://RootDSE")
    strDNSDomain = objRootDSE.Get("DefaultNamingContext")

    ' -----------------------------------------------'
    ' Important change OU= to reflect your domain
    ' -----------------------------------------------'
    strContainer = "OU=OUNAME, "
    strPassword = "PASSWORD"
    strContainer = strContainer & strDNSDomain

    ' Loop through OU=, setting passwords for all users
    set objOU =GetObject("LDAP://" & strContainer )
    For each objUser in objOU
    If objUser.class="user" then
    objUser.SetPassword strPassword
    objUser.SetInfo
    End If
    Next

    WScript.Quit

     


    Bechir Gharbi | http://myitforum.com/myitforumwp/community/members/bgharbi/ | Time zone : GMT+1
    vendredi 23 décembre 2011 12:43
  • cool merci ;)
    vendredi 23 décembre 2011 13:42
  • Bonjour,

    Voici 2 lien: http://www.computerperformance.co.uk/ezine/ezine83.htm et http://oreilly.com/pub/a/windows/2004/03/30/serverhacks_passwords.html

    ' StudentPwd.vbs
    ' Example VBScript to change a user's password
    ' Version 2.0 - August 2005
    ' ---------------------------------------------------------'
    Option Explicit
    Dim objOU, objUser, objRootDSE
    Dim strContainer, strDNSDomain, strPassword
    Dim intCounter, intAccValue, intPwdValue

    ' --------------------------------------------------------'
    ' Note: Please change OU=nowhere, to reflect your domain
    ' --------------------------------------------------------'
    strContainer = "OU=nowhere, "
    strPassword = "H0l1d@y$"
    intAccValue = 544
    intPwdValue = 0
    intCounter = 0
    ' -------------------------------------------------------'
    ' Makes the user change H0l1d@y$ password at first logon
    ' -------------------------------------------------------'

    Set objRootDSE = GetObject("LDAP://RootDSE")
    strDNSDomain = objRootDSE.Get("DefaultNamingContext")
    strContainer = strContainer & strDNSDomain
    set objOU =GetObject("LDAP://" & strContainer )

    For each objUser in objOU
    If objUser.class="user" then
    objUser.SetPassword strPassword
    objUser.SetInfo
    objUser.Put "pwdLastSet", intPwdValue
    objUser.SetInfo

    objUser.Put "userAccountControl", intAccValue
    objUser.SetInfo
    intCounter = intCounter +1
    End if
    next

    WScript.Echo strPassword & " is Password. UserAccountValue = " _
    & intAccValue & vbCr & intCounter & " accounts changed"
    WScript.Quit

    ' End of change password example VBScript


    Founder of SharePoint CookBook: http://www.GokanOzcifci.be
    Microsoft Certified Technology Specialist: SharePoint 2010, Configuring
    Microsoft Certified Personal
    vendredi 23 décembre 2011 13:47
  • j'ai un message d'erreur avec le script de Bachir

    SetPassword .vbs(21, 1) (null): 0x80005000

    c'est qui signifie d'après microsoft :

  • 0x80005000 (« l'attribut de service d'annuaire spécifié ou la valeur n'existe pas »).

     

    je vais tester l'autre script ;)

vendredi 23 décembre 2011 13:56
  • même message ligne 25 :

    set objOU =GetObject("LDAP://" & strContainer )

    vendredi 23 décembre 2011 14:05
  • en fait il fallait mettre la double côte après strContainer et pas avant

    mais maintenant j'ai cette erreur : StudentPwd.vbs(25, 1) (null): Le serveur n'est pas opérationnel.

    vendredi 23 décembre 2011 14:20
  • Non, la double côte est plutôt avant strContainer (comme dans le script) et pas après comme tu disais. Sinon, le script marche pour moi à merveille, as tu exécuter le script sur ton DC principale ? as tu utilisé cscript.exe Nom_du_fichier_vbs à partir d'une fenêtre dos ?
    Bechir Gharbi | http://myitforum.com/myitforumwp/community/members/bgharbi/ | Time zone : GMT+1
    vendredi 23 décembre 2011 14:41
  • non je n'ai pas utilisé cscript.exe, je refais le test
    vendredi 23 décembre 2011 14:45
  • idem, erreur : StudentPwd.vbs(25, 1) (null): 0x80005000

    à partir de tous mes DC....avec csccript

    vendredi 23 décembre 2011 14:50
  • tu as seulement changer les lignes 16 et 17 ?
    vendredi 23 décembre 2011 14:55
  • ça y est !!

    en fait j'avais un espace sur la ligne 16

    par contre je suis obligé de mettre le " après strContainer, ce qui me parait logique....

    ENfin l'essentiel c'est que ça marche !

    Merci

    • Marqué comme réponse Bechir Gharbi samedi 24 décembre 2011 07:17
    vendredi 23 décembre 2011 15:00