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
mais il ne liste que pour un group, sachant que j'ai environ 5O groupes donc je ne sais pas comment faire?
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
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
Partager