'Voila les constantes et les variables dont nous allons avoir besoins :
Const DOMAIN = "DC=BJ,DC=BTS"
Const ISSYPWD = "IssyPwd0!"
Const NYPWD = "NyPwd0!"
Const SUFFIX = "@bj.bts"
Const UAC = 544
Dim In1,In2,In3,Login,Name,FullName,FullLogin
'vbStyle = vbOkCancel + vbInterrogation + vbDefaultButton1
'==========================================
' SYNTAXE ET UTILISATION DU PROGRAMME
'==========================================
In1 = InputBox("Quel prenom ?","Prenom?","Entrez ici le prenom")
In2 = InputBox("Quel nom ?","Nom?","Entrez ici le nom")
In3 = InputBox("Quelle site ? (Issy ou New-York)","Unite d'organisation","Issy New-York")
Login = Lcase(left(In1,1) & In2)
Name = Ucase(In2)
FullLogin = Login & SUFFIX
FullName = In1 & " " & Name
Set objOU = GetObject("LDAP://OU="& In3 &",dc=bj,dc=bts")
Set objUser = objOU.Create("User", "cn="&FullName)
objUser.Put "sAMAccountName",Login
objUser.Put "sn",Name
objuser.Put "userPrincipalName",FullLogin
objUser.Put "givenName",In1
objUser.Put "displayName",FullName
objUser.Put "userAccountControl",UAC
objUser.Put "physicalDeliveryOfficeName",In3
objUser.SetInfo
'objUser.Put "userAccountControl", VALEURS :=>
'512 - Enable Account
'514 - Disable account
'544 - Account Enabled - Require user to change password at first logon
'66048 - Password never expires
'262656 - Smart Card Logon Required
'J'espere avoir pu vous aider !! Cordialement BJ