Je cherche =E0 faire un script vbs qui me retourne la liste des groupes
d'une OU.
J'ai d=E9j=E0 r=E9ussi =E0 r=E9cuperer la liste des utilisateurs dans un
groupe mais je n'arrive pas =E0 lister la liste des groupes d'une OU.
Le but de la maneuvre =E9tant de faire une liste des groupes de l'ou
avec pour chaque groupe la liste des utilisateur du groupe.
Voil=E0 ce que j'ai fait pour les utilisateurs :
On Error Resume Next
Set FSys =3D CreateObject("Scripting.FileSystemObject")
Set MonFic =3D FSys.CreateTextFile("c:\list_user_of_group.txt")
Set objGroup =3D GetObject _
("LDAP://cn=3Dnom_du_groupe,ou=3Dnom_de_ou,dc=3Ddomaine,dc=3Dextension")
objGroup.GetInfo
arrMemberOf =3D objGroup.GetEx("member")
MonFic.writeLine "Groupe : nom du groupe"
For Each strMember in arrMemberOf
WScript.echo strMember
MonFic.writeLine strMember
Next
MonFic.writeLine "Fin Groupe : nom du groupe"
MonFic.writeLine ""
Donc en clair je voudrais appliquer ce bout de code a chaque groupe de
mon OU.
