Bonjour,

J'ai un groupe de domaine local TOTO.
Les membres du groupe TOTO sont deux autres groupes de domaine globaux.
TITI et TATA.

Dans mes 2 groupes globaux TITI et TATA j'ai les utilisateurs.

Comment en VBS je peux avoir les utilisateurs du groupe TOTO.

J'ai ecris le code suivant :
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
 
Option Explicit
Dim ObjGroup, ObjRootDSE, ObjFichier
Dim StrContainer,StrName
Dim strMember,strDNSDomain,arrMemberOf,Pos,StrList,Fichier
Const Lire = 1, Ecrire = 2, Ajouter = 8
 
StrContainer = "OU=GROUPES,OU=SERVICE"
strName = InputBox("Veuillez entrer le nom du groupe" & VbCrlf & "dont vous voulez les membres","Lister les utilisateurs de groupe by Vikingraver")
If strName<>"" then
'***********************************************
'*         Connect to a container              *
'***********************************************
Set ObjRootDSE = GetObject("LDAP://rootDSE")
Set ObjGroup = GetObject("LDAP://CN=" & StrName & "," & strContainer & "," & objRootDSE.Get("defaultNamingContext"))
'***********************************************
'*       End connect to a container            *
'***********************************************
objGroup.getInfo
ArrMemberOf = objGroup.GetEx("member")
   For Each strMember in arrMemberOf
	  Wscript.echo StrMember
	  Pos=instr(strmember,",")
      strMember = Mid(strMember, 4, Pos-4)
	  strList = strList & strMember & vbcrlf
   Next
Set objfichier = wscript.createobject("scripting.filesystemobject")
'si on souhaite ecraser le fichier à chaque interrogation
'set Fichier=ObjFichier.OpenTextFile("Liste.txt",Ecrire,True)
'Fichier.Close
 
'si on souhaite ajouter les données
set Fichier=ObjFichier.OpenTextFile("Liste.txt",Ajouter,true)
Fichier.WriteLine strName & " contient :" & vbCrlf & Vbcrlf & strList
Fichier.Close
'Wscript.Echo strName & " contient :" & vbCrlf & Vbcrlf & strList
End If
Set ObjRootDSE = nothing
Set ObjGroup = nothing
Set ObjFichier = nothing
Mais avec ce code je n'obtiens que la liste primaire. c'est à dire tous les noms de groupes globaux.
Je voudrais que cela se fasse sur tous les niveaux (recursif jusqu'à je n'ai plus de groupe).

Merci de votre aide