par bobyII » 03 Sep 2003 09:43
Par exemple, pour la création d'un user :
<BR>
<BR>CreateUserAD AB2636 Durand Albert
<BR>
<BR>PS :
<BR>si tu veux que les autres champs (scriptPath, company) soientt définis, tu dois leur donner une valeur, par ex. :
<BR>scriptPath = "toto.cmd"
<BR>company = "Ma Société"
<BR>
<BR>A oui, obligatoire :
<BR>ServerPath = "LDAP://monserveur.toto.org"
<BR>UsersContainer = ""OU=Utilisateurs,DC=toto,DC=org""
<BR>
<BR>
<BR>Tu dois aussi définir la constante suivante (juste a recopier, ce sont des bidouilles a la Krosoft)
<BR>Const ADS_UF_DONT_EXPIRE_PASSWD = &H10000&
<BR>
<BR>RESULTAT (a copier dans ton notepad en modifiant les valeurs ServerPath et
<BR>UsersContainer)
<BR>=============================================
<BR>scriptPath = "toto.cmd"
<BR>company = "Ma Société"
<BR>Const ADS_UF_DONT_EXPIRE_PASSWD = &H10000&
<BR>ServerPath = "LDAP://monserveur.toto.org"
<BR>UsersContainer = ""OU=Utilisateurs,DC=toto,DC=org""
<BR>
<BR>CreateUserAD AB2636, Durand, Albert
<BR>
<BR>' =======================
<BR>' Création d'un user dans l'AD
<BR>' =======================
<BR>Function CreateUserAD(Matricule, Nom, Prenom)
<BR>'
<BR>set container = GetObject(ServerPath & "/" & UsersContainer)
<BR>set usr = container.Create("user", "CN=" & Matricule)
<BR>usr.Put "samAccountName", Matricule
<BR>usr.Put "givenName", Prenom 'Prenom
<BR>usr.Put "sn", Nom 'Nom
<BR>usr.Put "displayName", Nom & " " & Prenom '
<BR>usr.put "scriptPath", ScriptPath
<BR>usr.put "company", Compagny
<BR>usr.SetInfo
<BR>'
<BR>usr.AccountDisabled = False
<BR>usr.IsAccountLocked = False
<BR>' Positionner le mot de passe n'expire jamais
<BR>flags = usr.Get("UserAccountControl")
<BR>usr.Put "userAccountControl", flags Or ADS_UF_DONT_EXPIRE_PASSWD
<BR>usr.SetPassword GenericPass
<BR>usr.SetInfo
<BR>'
<BR>'WScript.echo Matricule & " : Utilisateur créé (" & Nom & " " & Prenom & ")"
<BR>End Function
<BR>
<BR>
<BR><font size=-2></font><BR><BR><font size=-2></font>