''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Script pour créer les utilisateurs dans Active Directory
' ATTENTION ! Le script doit obligatoirement avoir comme extention .vbs pour fonctionner !
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
wscript.echo "Le script commence. Cliquez OK pour continuer."
DIM arrRecord
Const ForReading = 1
 
 
''''''''''''''''''''''''''''''''''''''''''''''''
' Determine le chemin LDAP de votre domaine
' Rien dans cette partie ne doit etre changé
''''''''''''''''''''''''''''''''''''''''''''''''
 
Set Root = GetObject("LDAP://RootDSE" )
DomainPath = Root.Get("DefaultNamingContext" )
 
 
''''''''''''''''''''''''''''''''''''''''''''''''
' Obtenez l'indicateur à votre objet de domaine
' Rien dans cette partie ne doit etre changé
''''''''''''''''''''''''''''''''''''''''''''''''
 
Set Domain = GetObject("LDAP://" & DomainPath)
 
 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Pour indiquer l'OU où mettre les utilisateurs, ici dans l’UO « eleves » se trouvant dans l’UO « ecole »
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
Set ou_HR = GetObject("LDAP://OU=comptes, " & DomainPath)
 
 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' L'objet du fichier systeme est votre point d'entrée dans le fichier système
' Rien dans cette partie ne doit etre changé
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
set fso = CreateObject ("Scripting.FileSystemObject" )
 
 
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Pour retrouver le fichier texte dans C:\ADSI\eleves.txt
' Le nom et l'emplacement peuvent etre modifiés
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
Set tsTextFile = fso.OpenTextFile ("C:\utilisateur.txt", ForReading, False)
 
 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Commence à lire le fichier rentré, début de la boucle
'
' Lit une ligne du fichier
'
' Rien dans cette partie ne doit etre changé
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
While Not tsTextFile.AtEndOfStream    ' START OF LOOP
strRecord = tsTextFile.ReadLine
 
 
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Découpe la ligne en plusieurs segments délimités par le délimiteur spécifié
' (Vous pouvez changer le délimiteur)
' mettre chaque segment dans une rangée nommée arrRecord
' Le premier segment est référencé par arrRecord(0)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
 arrRecord = Split (strRecord, ":" )
 
 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Création de l'utilisateur dans l'OU
' Rien dans cette partie ne doit etre changé
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
Set adsUser = ou_HR.Create("user", "CN=" & arrRecord(2))
 
 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Définit les sAMAccountName et userPrincipalName
' attribués pour chaque utilisateur
' Rien dans cette partie ne doit etre changé
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
 adsUser.Put "sAMAccountName",  arrRecord(2)
 adsUser.Put "userPrincipalName", arrRecord(2)
 adsUser.SetInfo
 
 
''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Active le compte qui est désactivé par défaut
'
' Rajoute les attributs aditionnés listés dans le fichier texte
'
' Dans cet exemple, l'attribut de description sera
' rempli dans le second (1) segment
' et l'attribut du nom affiché est pris du troisième
' (2) segment
'
' Changez cette partie d'attributs add/change
' rentrés dans le fichier texte
''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
 adsUser.AccountDisabled = False
 adsUser.sn = arrRecord(0)
 adsUser.GivenName = arrRecord(1)
 adsUser.homeDirectory = "\\etu-gtr127\HPLaserJ"
 adsUser.homeDrive = "HPLaserJ"
 
 
'''''''''''''''''''''''''''''''''''''''''''''''''
'ajout de cet utilisateur au groupe "eleves" de l'OU "eleves"
'''''''''''''''''''''''''''''''''''''''''''''''''''''
 
set grp = GetObject("LDAP://CN=eleves,OU=eleves,OU=ecole,DC=ecole,DC=com" )
grp.Add "LDAP://CN="&arrRecord(2)&",OU=eleves,OU=ecole,DC=ecole,DC=com"
 
 
'''''''''''''''''''''''''''''''''''''''''''''''''
' SetInfo flushes the attributes in cache to disk
' Rien dans cette partie ne doit etre changé
'''''''''''''''''''''''''''''''''''''''''''''''''
 
 adsUser.SetInfo
 
 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Efface adsUser pour le prochain utilisateur
' Rien dans cette partie ne doit etre changé
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
 Set adsUser = Nothing
Wend                                   ' END OF LOOP
 
 
''''''''''''''''''''''''''''''''''''''''''''''''
' Ferme le fichier texte
' Rien dans cette partie ne doit etre changé
''''''''''''''''''''''''''''''''''''''''''''''''
 
tsTextFile.Close
 
 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Boite de dialogue finie
' Rien dans cette partie ne doit etre changé
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
wscript.echo "Eleves créés.", Chr(10),Chr(10),"Cliquez pour finir."