Quelques mots de remerciements seront grandement appréciés.

Creation utilisateurs win 2003 avec un script vbs

'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 prénom ?","Prénom?","Entrez ici le prénom")
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'espère avoir pu vous aider !! Cordialement BJ

A voir également

[vb6] xp style

Adapter un .vbp de vb 6.0 pour qu'il soit lisible en vb 5.0

Ajouter un commentaire

Commentaires

Afficher les 9 commentaires