Discussion :

[fbb53]

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

[hiro24]

Salut,

tu peux t'aider de ça éventuellement :

http://www.developpez.net/forums/d83...oupe-imbrique/

http://www.developpez.net/forums/d11...ive-directory/

Edit : Celui ci devrait faire l'affaire http://gallery.technet.microsoft.com...4-c19a60674157

En espérant que ça t'aide.