CREATION UTILISATEURS WIN 2003 AVEC UN SCRIPT VBS

---

Commentaire sur cette source (9)
Ajouter un commentaire et/ou une note

Ce script VBScript crée un utlisateur dont vous aurez donné le nom, prenom , login !
J'ai longement cherché des exemples de ce genre sur le net sans que ce soit tres fructueux!
Je vous laisse les commentaire comme expliqué dans le Tuto du Tuto ... LOL

'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

16 février 2006 01:00:14 :

voila une nouvel version plus jolie et plus propre pour l'installation des utilisateurs !