Discussion :

[Hacksign]

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 ^^

[__alex__]

Bonjour,

quel est le problème exactement ?
d'après ton post, je comprends que la création se passe bien sauf le champ 'bureau'.

ou bien la création ne s'effectue pas du tout ?

est-ce que tu as essayé de créer ton user en mettant tes variables en durs sans passer par un fichier Excel (d'ailleurs, enfin c'est juste mon avis, utilise un fichier texte pour ton listing txt ou csv) ?

[neuneu1]

J ai adapter ce script pour ma boite

et il tourne bien mais il y a quelques modif a faire

je peut te le passer???

a+

[alex_m94]

Moi je serai intéressé si ca te déranges pas ?
Merci

[neuneu1]

pas de probleme je te met ca en MP demain

a+

[neuneu1]

Bonjour

voila le script

il n 'y a qu a change le domaine, et adapter les uo a votre environement..

je n'ai pas de problème particulier avec si ce n 'est le password, mais je travail dessus.

La feuille excel apparait mais c'est un choix perso, il suffit de la passer a false

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
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 = true
set oexwk = oexapp.workbooks.open(owshshell.currentdirectory & "\ComptesUtilisateur.xls")
set oexws = oexwk.activesheet
i=2
Do until oexapp.cells(i,1).value = ""
nom = oexapp.cells(i,1).value
prenom = oexapp.cells(i,2).value
loggin = oexapp.cells(i,3).value
'mdp = oexapp.cells(i,5).value
ou =  oexapp.cells(i,6).value

'//////////////////////////////////////////////
 Set objdomaine = GetObject("LDAP://ou = " & ou & ",ou=Ecole Primaire,dc=ecolesks,dc=local")

Set objUser = objdomaine.Create("User", "cn= " & nom & "")

objUser.Put "sAMAccountName", loggin

objUser.Put "givenName", prenom
objUser.Put "sn", nom
objUser.Put "displayName", nom & prenom

objuser.Put "profilePath",  "\\Serveur02\Profils$\%username%"

 objUser.SetInfo

objUser.SetPassword "" ,mdp
 Set objUser = GetObject("LDAP://cn=" & nom & ",ou=Ecole Primaire,dc=ecolesks,dc=local")
objUser.AccountDisabled = FALSE
objUser.SetInfo



liste = liste + ou & ", "
i = i+1
Loop

MsgBox "Les utilisateurs " & liste & " ont été créés et activés."

Vous pouvez voir que le script est identique a celui de 1 er poste, ce qui permet de teste et de voir si l'erreur apparait encore

a+