lister tous les membres de tous les groupes AD
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:
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
