Discussion :

[cikky]

bonjour,

je cherche un moyen de récupérer la liste des utilisateurs de l'AD avec le nb de groupes auquel chacun appartient
pour l'instant j'arrive a obtenir le nb de groupe, mais localement et pour UN utilisateur. cad que je lance mon script et j'obtient le nb de groupes auquel J'APPARTIENS

[ced600]

Je n'utilise pas AD et je ne pourrais pas t'aider, mais il y a quelque personne ici sur le forum qui pourront t'aider.
Mais cela serait peut être plus pratique, pour qu'ils puissent t'aider au mieux, que tu montres ce que tu as fait jusqu'ici, bref que tu postes ton script.

[cikky]

Pour l'instant j'ai fait ceci:

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
 
Set objADSysInfo = CreateObject("ADSystemInfo")
Set objNetwork = CreateObject("Wscript.Network")
strADUserName = objADSysInfo.UserName
 
Set objUser = GetObject("LDAP://" & strADUserName) 
strUser = objNetwork.username
objmemberOf  = objUser.GetEx("memberOf" )
i = 0
WScript.Echo " [ Debug ] Nom user: " & strUser
 
For Each objGroup in objmemberOf  
    i = i + 1
Next
WScript.Echo " [ Debug ] Nombres de groupes: " & i

mais comme je l'ai dit, ca affiche MON nom et le nb correspondant au nb de groupe auquel j'appartiens. ms moi je veux la liste de l'ensemble des utilisateurs du domaine

[ced600]

ce comportement est certainement dû au fait que tu spécifie ton user à toi dans :

Code :

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

Set objUser = GetObject("LDAP://" & strADUserName)

N'y aurais t'il pas l'équivalent d'un "ALL" plutôt que de mettre le user ?

Fait une recherche sur le forum, je crois me souvenir de post où il était question d'obtention de liste des utilisateurs.

[cikky]

oui je sais, c'etait pour tester dejà.
j'ai cherché sur le forum, j'ai trouvé des thread ms concernant des utilisateur en local, et pas sur un controleur de domaine

je vais continuer mes recherches

[spantemonium]

déjà il y a un truc a savoir sur les memberof :

la liste affiche les groupes "principaux" (builtin pour la plupart) et les autres groupes. Entre ces 2 affichages, il s'y glisse un groupe "vide" qui doit servir de séparateur.

donc je remplacerais :

Code :

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

1
2
For Each objGroup in objmemberOf  
    i = i + 1

par

Code :

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

1
2
3
4
For Each objGroup in objmemberOf  
if objGroup = "" Then
    i = i + 1
End If

ensuite lancer la moulinette sur tous les utilisateurs, il faut faire une requete que je te copierai plus tard car pas le temps de chercher tout de suite

[cikky]

donc je remplacerais :

Code :

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

1
2
For Each objGroup in objmemberOf  
    i = i + 1

par

Code :

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

1
2
3
4
For Each objGroup in objmemberOf  
if objGroup = "" Then
    i = i + 1
End If

en prenant ta proposition, je n'obtiens pas la bonne valeur

comment ca lancer la moulinette sur chq utilisateur? tu veux dire qu'on va faire ca pr les 350 utilisateurs qui m'entourent?? lool
Merci de ton aide en tt cas