Scripts Création Utilisateur

[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 :

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+

[neuneu1]

Bon pour le password ,j'aivais besoins de tester , c'est fait

il faut juste modifier la ligne

Code :

1
2
objUser.SetPassword "" ,mdp

par

Code :

1
2
objUser.SetPassword  mdp

a+

[alex_m94]

Ok merci mais tu le mets dans un script .vbs c'est bien ça ?

Excuse moi mais je te demande ca car j'ai pas encore testé.

Merci de me repondre

[neuneu1]

Oui c'est ca
tu copie le code dans le notepad et tu met l extension vbs

perso j'utilise vbsfactory, c'est pas mal pour les teste de script et c'est gratuit
a+

[alex_m94]

Merci encore pour ton script, j'ai juste un probleme, il m'indique une erreur à la ligne 4 (set oexapp = wscript.createobject("Excel.Application"))

De plus je ne comprends pas cette ligne :
Set objUser = GetObject("LDAP://cn=" & nom & ",ou=Ecole Primaire,dc=ecolesks,dc=local")
je ne comprends pas le deux dc

[neuneu1]

Salut

Envoyé par alex_m94

Merci encore pour ton script, j'ai juste un probleme, il m'indique une erreur à la ligne 4 (set oexapp = wscript.createobject("Excel.Application"))

De plus je ne comprends pas cette ligne :
Set objUser = GetObject("LDAP://cn=" & nom & ",ou=Ecole Primaire,dc=ecolesks,dc=local")
je ne comprends pas le deux dc

Je ne sais pas je n'ai pas l erreur

Pour la ligne , tu as le nom du domaine plus sont extension(c'est pas le terme technique:)
En gros mon teste pour le script ce passe sur un domaine qui a pour nom ecolesks.local....

si ta boite s appel maboite.com tu remplace ecolesks par maboite et local par com.
ce qui te donne:

Code :

1
2
Set objUser = GetObject("LDAP://cn=" & nom & ",ou=Ecole Primaire,dc=maboite,dc=com")

a+

[alex_m94]

Envoyé par neuneu1

Salut




Pour la ligne , tu as le nom du domaine plus sont extension(c'est pas le terme technique:)
En gros mon teste pour le script ce passe sur un domaine qui a pour nom ecolesks.local....

si ta boite s appel maboite.com tu remplace ecolesks par maboite et local par com.
ce qui te donne:

Code :

a+

Moi elle s'appelle c-xxxx.landes.org donc je mettrais :
Set objUser = GetObject("LDAP://cn=" & nom & ",ou=Ecole Primaire,dc=c-xxxx,dc=landes.org")

C'est ca alors ? je vais tester merci

[alex_m94]

J'ai encore une autre question (dsl), d'apres ce que j'ai compris on doit mettre le nom des user dans un fichier exel
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

Je dois metre le nom prenom loggin mdp et l'OU en colonne je pense ?

A quoi sert cette ligne ? objuser.Put "profilePath", "\\Serveur02\Profils$\%username%"

J'arrive à exécuter le script mais il ne crée pas les users dans l'OU que j'ai precisé.

[neuneu1]

Salut

le code est adapter a mes besoins

la ligne\\serveur\ect.. c'est pour le profil itinérant.

tu peux la la mettre inactive(avec un petit ' devant)

Ce script te permet de cree des users , apres tu adapte a tes besoins

si tu veux rajoute le mail,l adresse etc..

a+

[alex_m94]

Merci beaucoup j'avais finalement compris le profil itinerant. Par contre c'est pour créer les users, tu les mets dans le fichier excel ?

[neuneu1]

oui
tu cree un doc excel qui s appel comme dans le script

la premiere ligne tu met nom prenom loggin mpd ou

a+