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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 .