Bonjour a toutes et a tous ^^
je viens par vos contré lol ! non jarrete ! oui donc bon ! passons au vif du sujet J'ai trouvé sur le net un petit scripts ! jai plein derreur et vue ke je mis connait pas je vous avoir vos aide ! voici le scripts vous pouvez me dire quil fonctionne est ba NON ! jai plein derreurs:

Dim oexapp, oexwk, oexws, owshshell, ocellule, i
Dim nom, prenom, loggin, mdp, bureau, messagerie, ville, liste
liste = ""
set oexapp = wscript.createobject("Excel.Application")
set owshshell = wscript.createobject("wscript.shell")
oexapp.visible = false
set oexwk = oexapp.workbooks.open(owshshell.currentdirectory & "\ComptesUtilisateurs.xls")
set oexws = oexwk.activesheet
i=2
Do until oexapp.cells(i,1).value = ""
nom = oexapp.cells(i,2).value
prenom = oexapp.cells(i,3).value
loggin = oexapp.cells(i,4).value
mdp = oexapp.cells(i,5).value
bureau = oexapp.cells(i,6).value
messagerie = oexapp.cells(i,7).value
ville = oexapp.cells(i,8).value
Set objDomain = GetObject("LDAP://CN=Users,OU=CS_USERS,dc=CS-HOME,dc=Local")
Set objCN = GetObject("LDAP://CN=Users,OU=CS_USERS,dc=CS-HOME, dc=local")
Set objUser = objCN.Create("User", "cn= " & nom & "")
objUser.Put "sAMAccountName", loggin
objUser.Put "sn", nom
objUser.Put "givenName", prenom
objUser.Put "physicalDeliveryOfficeName", bureau "ERREUR"
objUser.Put "mail", messagerie
objUser.Put "l", ville
objUser.SetInfo
Set objUser = GetObject("LDAP://cn=" & nom & ",CN=Users,dc=groupe,dc=cs-home,dc=local")
objUser.SetPassword "Welcome"
Set objCN = GetObject("LDAP://CN=Users, dc=cs-home, dc=local")
Set objGroup = GetObject("LDAP://CN=Utilisa. du domaine, CN=Users, dc=groupe,dc=cs-home,dc=local")
objGroup.Put "sAMAccountName", "Utilisa. du domaine"
Set objUser = GetObject("LDAP://cn=" & nom & ", CN=Users, DC=groupe, dc=cs-home,dc=local")
objUser.AccountDisabled = FALSE
objUser.SetInfo
liste = liste + nom & ", "
i = i+1
Loop
MsgBox "Les utilisateurs " & liste & " ont été créés et activés."

Merci pour votre aide ^^