Discussion :

[aurelien13008]

Bonjours, je dois créer un script en vbs qui liste tous les utilisateurs d'un groupe en tapant celui-ci, les utilisateurs doivent être listé dans la fenêtre dos mais ne doivent pas être enregistré sous forme de fichier texte. Avez-vous une idée ? Le script doit être exécuter sous commande dos et le nom du groupe est un paramètre et dois ce taper après la ligne d'exécution du script(Je ne connais absolument rien en vbs, je ne sais même pas si il y a une commande de connexion a l'AD, je débute vraiment)

[Flamby38]

une petite recherche sur le forum, ca a du etre fait plein de fois, par exemple là : http://www.developpez.net/forums/d88...s-requete-lad/

pour te repérer dans l'arborescence de l'AD le logiciel LDAPBrowser est pratique.

[aurelien13008]

Exact j'ai déjà vu cette page du forum, mais ce que j'aimerais savoir, c'est comment en tapant le nom d'un groupe il peux lister les membres de celui-ci.

[pitchalov]

Salut.

Tu peux faire ça avec une ptite requête ADODB sur ton AD :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Set objRootDSE = GetObject("LDAP://rootDSE")
strRootDSE = objRootDSE.Get("defaultNamingContext")
 
strGroupName = "CN de ton groupe"
 
Set objCommand = CreateObject("ADODB.Command")
	objCommand.ActiveConnection = objConnection
	objCommand.CommandText = "<GC://" & strRootDSE & ">;(&(objectCategory=group)(cn=" & strGroupName & "))" & ";distinguishedName;subtree"
 
Set objGroup = GetObject ("LDAP://" & objRecordSet.Fields("distinguishedName"))
 
For each objMember in objGroup.Members
  MsgBox objMember.sAMAccountName
Next

[aurelien13008]

Merci sa c'est super, mais en fait je ne veux pas marquer le groupe directement dans le script mais par le biais d'une commande dos ou je noterais le nom du groupe. Le tout lancerais mon script et listerais les membres du groupes que j'ai indiquer. J'appelle ça un paramètre mais je ne sais pas du tout comment ça fonctionne.

[aurelien13008]

Je crois que j'ai compris : à la place de strGroupName = "CN de ton groupe" dans le script, je le rentre directement dans la fenêtre dos après la commande pour lancer le script, corriger moi si je me trompe.

Edit : Voila mon code j'y ai rajouté des argument :

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
Set objRootDSE = GetObject("LDAP://rootDSE")
strRootDSE = objRootDSE.Get("defaultNamingContext")
Dim arg
Set arg = WScript.Arguments 
strGroupName = arg(0) 
 
Set objCommand = CreateObject("ADODB.Command")
	objCommand.ActiveConnection = objConnection
	objCommand.CommandText = "<GC://" & strRootDSE & ">;(&(objectCategory=group)(cn=" & strGroupName & "))" & ";distinguishedName;subtree"
 
Set objGroup = GetObject ("LDAP://" & objRecordSet.Fields("distinguishedName"))
 
For each objMember in objGroup.Members
  MsgBox objMember.sAMAccountName
Next

Mais sa ne marche pas une erreur ADODB.Command: Les arguments sont de type incorrect, en dehors des limites autorisées ou en conflit les uns avec les autres.

Je ne vois vraiment pas :s

[pitchalov]

Salut.

Désolé, je viens de me rendre compte qu'il en manquait beaucoup dans le code que je t'ai filé...

Voilà, cela devrait fonctionner :

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
Set objRootDSE = GetObject("LDAP://rootDSE")
strRootDSE = objRootDSE.Get("defaultNamingContext")
 
strGroupName = WScript.Arguments (0)
 
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open "Provider=ADsDSOObject;"
 
Set objCommand = CreateObject("ADODB.Command")
	objCommand.ActiveConnection = objConnection
	objCommand.CommandText = "<GC://" & strRootDSE & ">;(&(objectCategory=group)(cn=" & strGroupName & "))" & ";distinguishedName;subtree"
 
Set objRecordSet = objCommand.Execute
Set objGroup = GetObject ("LDAP://" & objRecordSet.Fields("distinguishedName"))
 
For each objMember in objGroup.Members
  WScript.Echo objMember.sAMAccountName
Next

[aurelien13008]

Je ne comprend pas, j'ai encore une erreur, sa fait 3 jours que j'essaye de la corriger mais sa ne marche pas :

ligne 14 caractère 1 une exception s'est produite.