Bonjour
je débute en vbs et je ne sais pas trop comment faire, je voudrais lister tous les membres de tous les groupes AD

J'ai trouver ce code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Set objGroup = GetObject("LDAP://cn=test01,ou=Groups,ou=TEST,DC=domaine,DC=local")
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
Set objFile = objFileSystem.OpenTextFile(objGroup.Get("name") & " - Members.txt", 2, True, 0)
For Each objMember in objGroup.Members
  objFile.WriteLine objMember.Get("sAMAccountName") & VbTab & _
    objMember.Get("cn") & VbTab & _
    objMember.Parent
Next
Set objFile = Nothing
Set objFileSystem = Nothing
Set objGroup = Nothing
mais il ne liste que pour un group, sachant que j'ai environ 5O groupes donc je ne sais pas comment faire?

J'ai fais un copier/coller du programme dans le programme en modifiant le cn part test02( un deuxième group) mais je me vois mal faire ca 50 fois, il n'y a pas moyen de faire une boucle?

D'avance merci