Script Excel vers AD

Version imprimable

Bonjour,

Je viens de créer un script VBS qui a l'aide d'un fichier excel ca entre automatiquement dans l'active directory des utilisateurs.

Dans mon active directory j'ai mon domaine MyServer.local puis dans ce domaine j'ai une UO qui ce nomme MesUsers.

Donc quand j'execute mon script mes utilisateur vont bien dans MesUsers mais le problème maintenant c'est que si je créer une autre UO dans MesUsers maintenant exemple Utilisateurs et que maintenant je veux que mes utilisateurs dans mon excel aillent dans UO Utilisateur qu'il y a dans MesUsers je n'y arrive pas.

Est-ce que quelqu'un peut me dire comment faire pour mettre ces utilisateurs ?

merci de votre aide

Voila mon Script :

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
45
46
47
48
49
50
51
52
Dim oexapp, oexwk, oexws, owshshell, ocellule, i
dim nom, prenom, loggin, mdp, liste
'liste = ""
set oexapp = wscript.createobject("Excel.Application")
set owshshell = wscript.createobject("wscript.shell")
oexapp.visible = false
set oexwk = oexapp.workbooks.open(owshshell.currentdirectory & "\utilisateurs.xls")
set oexws = oexwk.activesheet
'oexapp.visible=true
 
Dim MonDomaine
MonDomaine="dc=MyServer, dc=local"
 
Set objCN = GetObject("LDAP://OU=MesUsers,OU=Utilisateurs," & MonDomaine)
Set objGroup = GetObject("LDAP://CN=Utilisa. du domaine, CN=Users," & MonDomaine)
 
Set objGroup = GetObject("LDAP://CN=Utilisa. du domaine, CN=Users," & MonDomaine)
 
i = 2
Do until oexapp.cells(i,2).value = ""
	nom = oexapp.cells(i,1).value
	prenom = oexapp.cells(i,2).value
	loggin = oexapp.cells(i,3).value
	mdp = oexapp.cells(i,4).value
 
	wscript.echo "création compte " & nom
 
	'Set objDomain = GetObject("LDAP://dc=MyServer, dc=local")
 
 
	Set objUser = objCN.Create("User", "cn= " & nom & "")
	objUser.Put "sAMAccountName", loggin
	objUser.Put "sn", nom
	objUser.Put "givenName", prenom
	objUser.SetInfo
 
	Set objUser = GetObject("LDAP://cn=" & nom & ",OU=MesUsers,OU=Utilisateurs," & MonDomaine)
	objUser.SetPassword mdp
 
 
	objGroup.Put "sAMAccountName", "Utilisa. du domaine"
	Set objUser = GetObject("LDAP://cn=" & nom & ", OU=MesUsers,OU=Utilisateurs," & MonDomaine)
	objUser.AccountDisabled = FALSE
	objUser.SetInfo
	'liste = liste + nom & ", "
i = i+1
Loop
 
 
'MsgBox "Les utilisateurs " & liste & " ont été créés et activés."
 
oexapp.quit

je t'ai mis en forme le code.

Je t'ai aussi rajouté la sous-OU Utilisateurs dans Utilisateurs\MesUsers

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
Dim oexapp, oexwk, oexws, owshshell, ocellule, i
dim nom, prenom, loggin, mdp, liste
'liste = ""
set oexapp = wscript.createobject("Excel.Application")
set owshshell = wscript.createobject("wscript.shell")
oexapp.visible = false
set oexwk = oexapp.workbooks.open(owshshell.currentdirectory & "\utilisateurs.xls")
set oexws = oexwk.activesheet
'oexapp.visible=true
Dim MonDomaine
MonDomaine="dc=MyServer, dc=local"
Set objCN = GetObject("LDAP://OU=Utilisateurs,OU=MesUsers,OU=Utilisateurs," & MonDomaine)
Set objGroup = GetObject("LDAP://CN=Utilisa. du domaine, CN=Users," & MonDomaine)
i = 2
Do until oexapp.cells(i,2).value = ""
	nom = oexapp.cells(i,1).value
	prenom = oexapp.cells(i,2).value
	loggin = oexapp.cells(i,3).value
	mdp = oexapp.cells(i,4).value
	wscript.echo "création compte " & nom
	'Set objDomain = GetObject("LDAP://dc=MyServer, dc=local")
	Set objUser = objCN.Create("User", "cn= " & nom & "")
	objUser.Put "sAMAccountName", loggin
	objUser.Put "sn", nom
	objUser.Put "givenName", prenom
	objUser.SetInfo
	Set objUser = GetObject("LDAP://cn=" & nom & ",OU=Utilisateurs,OU=MesUsers,OU=Utilisateurs," & MonDomaine)
	objUser.SetPassword mdp
	objGroup.Put "sAMAccountName", "Utilisa. du domaine"
	Set objUser = GetObject("LDAP://cn=" & nom & ",OU=Utilisateurs,OU=MesUsers,OU=Utilisateurs," & MonDomaine)
	objUser.AccountDisabled = FALSE
	objUser.SetInfo
	'liste = liste + nom & ", "
	i = i+1
Loop
'MsgBox "Les utilisateurs " & liste & " ont été créés et activés."
oexapp.quit

15/07/2009, 15h35
passager123

Deja merci pour ton aide spantemonium,

Je viens de tester ton script est ca ne marche pas j'ai une erreur a la ligne 12 comme quoi l'objet ne se trouve pas sur le serveur :

Set objCN = GetObject("LDAP://OU=Utilisateurs,OU=MesUsers,OU=Utilisateurs," & MonDomaine)

Le but c'est que j'arrive a mettre automatiquement mais utilisateurs de excel dans mon AD avec le chemin suivant.

Mon domaine --> MyServer.local
UO --> MesUsers dans cette UO j'ai une autre UO ---> Utilisateur est ces dans cette UO que je veux mettre mes Clients.

J'avais testé comme ta fait auparavant mais ca ne marche pas ta pas une autre technique car je ne sais plus quoi testé moi !!!
15/07/2009, 17h20
spantemonium

En fait tu as écrit au début :

Citation:

Donc quand j'execute mon script mes utilisateur vont bien dans MesUsers mais le problème maintenant c'est que si je créer une autre UO dans MesUsers maintenant exemple Utilisateurs et que maintenant je veux que mes utilisateurs dans mon excel aillent dans UO Utilisateur qu'il y a dans MesUsers je n'y arrive pas.

Dans le doute j'ai mis Utilisateurs avec un 'S'.

Si c'est sans 'S' retire le S dans le code :

exemple
pas bien :

Code:

OU=Utilisateurs,OU=MesUsers,OU=Utilisateurs," & MonDomaine

bien :

Code:

OU=Utilisateur,OU=MesUsers,OU=Utilisateurs," & MonDomaine

Il y a plusieurs endroits où il faut le corriger, sinon tu renomme juste ton OU...
15/07/2009, 17h46
passager123

C'est bon j'ai trouvé !!!! :P

OU=Utilisateurs,OU=MesUsers,OU=Utilisateurs," & MonDomaine

Il faut retirer le dernier OU=Utilisateurs et laisser que celui devant est ca marche.

Merci pour ton aide :ccool:

J'ai encore deux petits problèmes avec mon script, je vous explique !!!

Le truc c'est que a l'aide de mon fichier excel je rentre dans mon AD le Nom, Prenom, mot de passe, loggin de l'utilisateur mais j'aimerai également rentrer dans mon AD l'adresse mail de l'utilisateur donc pour cela j'ai créé une table dans excel mail Utilisateurs et donc j'aimerai que cette colonne face comme les autres rentre automatiquement dans l'AD mais le problème c'est que je ne connais pas la commande pour le mail. Est ce que quelqu'un peut m'aider ?

Ensuite j'aimerais cocher une case dans les proprièté des comptes, j'aimerai que grâce a ce script que tout les utilisateurs on la case "Le mot de passe n'expire jamais" soit coché savez-vous comment faire ?

Merci pour votre aide:ccool:

Je vous remontre mon script
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 Dim oexapp, oexwk, oexws, owshshell, ocellule, i dim nom, prenom, loggin, mdp, liste, nomaff 'liste = "" set oexapp = wscript.createobject("Excel.Application") set owshshell = wscript.createobject("wscript.shell") oexapp.visible = false set oexwk = oexapp.workbooks.open(owshshell.currentdirectory & "\utilisateurs.xls") set oexws = oexwk.activesheet 'oexapp.visible=true Dim MonDomaine MonDomaine="dc=MyServer, dc=local" 'ex: MonDomaine="dc=Fondation-Auteuil, dc=com" Set objCN = GetObject("LDAP://OU=Utilisateurs,OU=Client,OU=MesUsers," & MonDomaine) 'A modifier pour le site selon l'OU 'Exemple: Set objCN = GetObject("LDAP://OU=Utilisateurs,OU=Blanquefort St Joseph (BLA),OU=Fondation," & MonDomaine) Set objGroup = GetObject("LDAP://CN=Utilisa. du domaine, CN=Users," & MonDomaine) i = 2 Do until oexapp.cells(i,2).value = "" nom = oexapp.cells(i,1).value prenom = oexapp.cells(i,2).value loggin = oexapp.cells(i,3).value mdp = oexapp.cells(i,4).value nomaff = oexapp.cells(i,5).value wscript.echo "création compte " & nom 'Set objDomain = GetObject("LDAP://dc=MyServer, dc=local") Set objUser = objCN.Create("User", "cn= " & nomaff & "") objUser.Put "sAMAccountName", loggin objUser.Put "sn", nom objUser.Put "givenName", prenom objUser.SetInfo Set objUser = GetObject("LDAP://cn=" & nomaff & ",OU=Utilisateurs,OU=Client,OU=MesUsers," & MonDomaine) objUser.SetPassword mdp objGroup.Put "sAMAccountName", "Utilisa. du domaine" Set objUser = GetObject("LDAP://cn=" & nomaff & ",OU=Utilisateurs,OU=Client,OU=MesUsers," & MonDomaine) objUser.AccountDisabled = FALSE objUser.SetInfo 'liste = liste + nom & ", " i = i+1 Loop 'MsgBox "Les utilisateurs " & liste & " ont été créés et activés." oexapp.quit

Voila c'est bon j'ai reussi a le faire maintenant je galere pour l'incorporer a mon script de depart j'ai des erreur de definition de nom quelqu'un peut me dire comment placer ce petit script dans le gros.

Voila le petit :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Const ADS_UF_DONT_EXPIRE_PASSWD = &h10000 Set oU = GetObject _ ("LDAP://OU=Utilisateurs,OU=Client,OU=MesUsers,dc=MyServer,dc=local") oU.Filter=Array("user") For each objUser in oU intUAC = objUser.Get("userAccountControl") If ADS_UF_DONT_EXPIRE_PASSWD AND intUAC Then Wscript.Echo "Already enabled" Else objUser.Put "userAccountControl", intUAC XOR _ ADS_UF_DONT_EXPIRE_PASSWD objUser.SetInfo WScript.Echo "Password never expires is now enabled" End If Next