Lister les groupes d'une OU d'Active Directory
Bonjour tout le monde !
Je suis nouveau stagiaire et débutant en VBS. J'ai comme mission d'extraire les groupes, sous groupes et utilisateurs de l'Active Directory pour les ranger de façon ordonnée en XML.
Pour l'instant j'ai réussi à extraire les utilisateurs d'un groupe donné (avec con CN) :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
| On Error Resume Next
Set objGroup = GetObject("LDAP://cn=****,ou=***,dc=***,dc=***" )
objGroup.GetInfo
arrMemberOf = objGroup.GetEx("member" )
Set fso = CreateObject("Scripting.FileSystemObject" )
Set f = fso.OpenTextFile("orga.txt", 2,True)
f.Write "<Organigramme>" & VbNewline
For Each strMember in arrMemberOf
f.Write strMember & VbNewline
Next
f.Write "<Organigramme\>"
f.Close |
Mais je n'arrive pas à extraire les utilisateurs ET les groupes en partant de l'OU et non pas d'un groupe.
J'espère que j'ai été assez clair, merci pour votre aide :).
