Discussion :

[scrouet]

Bonjour.

Je cherche à lister tous les utilisateurs d'un groupe sous LDAP, y compris les utilisateurs appartenant à des groupes inclus récursivement dans le premier.
Quelqu'un aurait-il un début d'exemple (genre liste des groupes d'un groupe et liste des membres d'un groupe) ?

[RadPAT]

Salut,

pas simple ta question...
Voilà ce que je te propose à partir d'un autre script que j'avais déjà fait :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
On Error Resume Next
 
strGrp = "Nom_Groupe1;Nom_Groupe2;Nom_Groupe3;"
 
ArrGrps = Split(strGrp, ";")
 
Set objExcel = CreateObject("Excel.Application")
Set ObjFso = CreateObject("Scripting.FileSystemObject")
 
For k = 0 to Ubound(ArrGrps) - 1
 
    Set objGroup = GetObject("LDAP://cn=" & ArrGrps(k) & ",ou=Groups,OU=.../...,dc=.../...,dc=com")
 
    WScript.Echo "Groupe traité : "  & ArrGrps(k)
    WScript.Echo "****************************************"
 
    For Each strUser in objGroup.Member
        Set objUser =  GetObject("LDAP://" & strUser)
 
        Wscript.Echo " - " & objUser.CN & ", " & objUser.Class
        If UCase(objUser.Class) = "GROUP" Then    
           XtractNom = objUser.ADSPath       
           Xtract 
        End If
    Next   
Next    
 
WScript.Quit 
 
Sub Xtract
    Set objGroup2 = GetObject(XtractNom)
 
    For Each strUsers in objGroup2.Member
        Set objUsers =  GetObject("LDAP://" & strUsers)
 
        If UCase(objUsers.Class) = "GROUP" Then 
           WScript.Echo "     - " & objUsers.CN & ", " & objUsers.Class  
           XtractNom = objUser.ADSPath       
           Xtract 
        Else
           WScript.Echo "     - " & objUsers.CN & ", " & objUsers.Class
        End If
    Next 
End Sub

Dans StrGrp, tu mets les noms des groupes que tu dois attaquer séparés avec des ";" (y compris à la fin de la variable), si tu n'as qu'un seul groupe à traiter tu fais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

strGrp = "Nom_Groupe1;"

Le script marche très bien chez moi car il n'y a pas plus de 2 niveaux dans les groupes donc au delà de 3 niveaux, je ne sais pas si la récursivité va fonctionner comme j'aimerai....un appel de Sub dans un Sub je n'ai jamais fait !
Tiens moi au courant.

A++

[ced600]

Le script marche très bien chez moi car il n'y a pas plus de 2 niveaux dans les groupes donc au delà de 3 niveaux, je ne sais pas si la récursivité va fonctionner comme j'aimerai....un appel de Sub dans un Sub je n'ai jamais fait !

Si le code récursif est bon il n'y a pas de raison que cela ne marche pas.
En tout cas la récursivité marche très bien avec une fonction.
Donc si ce n'est qu'une histoire de sub, tu peux mettre el tout dans une fonction et l'appeler dans un sub.