Bonjour à tous,
J'ai trouver sur le site de Microsoft une requete qui permet de récupérer la liste des membres d'un groupe AD mais le problème, c'est que pour certains groupe la liste comporte plus de membres que mon tableau de ligne...
Connaissez-vous un moyen de dépasser cette limite ?
Voici le script :
Sub NbUtilSMTP()
Dim Alphabet%, Lettre$, Ligne%
Lettre$ = "_Divers"
Alphabet% = 64
Ligne% = 2
Do While Alphabet% <> "91"
'Choix de l'OU de départ
Set objGroup = GetObject("LDAP://cn=Lettre " & Lettre$ & ",ou=groupes,dc=domain")
objGroup.GetInfo
arrmemberof = objGroup.GetEx("member")
Alphabet% = Alphabet% + 1
Lettre$ = " " & Chr(Alphabet%)
Range("C" & Ligne%).Value = UBound(arrmemberof) + 1
Ligne% = Ligne% + 1
Loop
End Sub
Merci par avance.