Vbs et AD récupération d'utilisateurs en fonction d'un groupe

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)

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.

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.

Salut.

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

Code:

---

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

---

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.

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:

---

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

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:

---

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

---

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.