Creation de compte dans AD

Bonour,
J'ai une creation de compte dans AD a faire, rien de plus simple me direz vous:
Alors voila Je souhaite que ces comptes soit activer, le mot de passe n'expire pas, et le compte n'expire pas non plus.

Voici donc les paramétre que j'utilise

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Const ADS_UF_PASSWD_CANT_CHANGE = 64 Const ADS_UF_DONT_EXPIRE_PASSWD = 65536   Control = ADS_UF_DONT_EXPIRE_PASSWD + ADS_UF_PASSWD_CANT_CHANGE objUser.userAccountControl= Control objUser.AccountDisabled = False objUser.SetPassword password 'let user change it later objuser.description = description ' User must change password at next logon objUser.Put "pwdLastSet", 0 objUser.SetInfo

---

Si on fait cela le code fonctionne le compte est activer, le mot de passe est à changer et le compte expire a la date voulu.

objUser.AccountExpirationDate = estrExpirDate
objUser.AccountDisabled = False
objUser.SetPassword password 'let user change it later
objuser.description = description
' User must change password at next logon
objUser.Put "pwdLastSet", 0
objUser.SetInfo

Merci d'avance

Il faut d'abord que tu crées le compte avec le setinfo

Et ensuite il faut le réactiver et donner le pass que tu veux car tu ne peux créer un compte et donner le mot de passe en une seule fois.

Voici un code pour créer un compte

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54

'Création de compte utilisateur   Dim logFile Dim objfso Dim LastName Dim FirstName Dim Displayname Dim sAMAccountName Dim UserPrincipalName Dim objUser   Set objfso = CreateObject("Scripting.FileSystemObject" )   If objfso.FileExists("C:\ZZZZZZZZ" ) Then 'Chemin pour la création d'un fichier de log Set logFile = objfso.GetFile("C:\ZZZZZZZ.txt") 'Chemin pour la création d'un fichier de log logFile.delete End if   LastName = "PRENOM" 'A remplacer FirstName = "NOM" 'A remplacer Displayname = FirstName & " " & LastName   sAMAccountName = "LOGIN" 'A remplacer UserPrincipalName = sAMAccountName &"@DOMAIN.local"   '=================================== 'création du compte sur l'AD '===================================   Set objRootDSE = GetObject("LDAP://rootDSE") Set objContainer = GetObject("LDAP://OU=TTTTT") 'Indiquer l'OU ou le compte doit être créé Set objUser = objContainer.Create("user", "cn=" & Displayname)   objUser.Put "sAMAccountName", sAMAccountName objUser.put "UserPrincipalName", UserPrincipalName objUser.Displayname = Displayname objUser.givenname = FirstName objUser.sn = LastName on error resume next objUser.SetInfo   'Création d'un fichier de log si le login existe déjà. If err.number <> 0 then Set logFile = objfso.OpenTextFile("C:\ZZZZZZZ", 8,true) 'Chemin pour la création d'un fichier de log logFile.write sAMAccountName & vbCrLf logFile.close End if   objUser.SetPassword "MotDePasse" 'Password lors de la première connexion. objUser.AccountDisabled = false objUser.SetInfo   '===================================

---

Après il faut juste que tu trouves la fonction pour que le passe n'expire pas etc.