Discussion :

[phberanger]

Bonjour a ttes et tous,

Dans un script (qui tourne sans problème) et ou je récupere les groupes de chaque utilisateur d'AD, je voulais savoir s'il existe une fonction qui me permette de compter le nombre d'entrée dans mon array. En fait je voudrais connaitre le nombre de groupes de l'utilisateur avant de les afficher:

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
Do Until objRecordSet.EOF  
    Set objUser = GetObject(objRecordSet.Fields("ADsPath").Value)
    objRecordSet.MoveNext
    
       arrMemberOf = objUser.GetEx("memberOf")

'nombre de groupes de mon utilisateur, commande du genre
	arrMemberOfNumber = objUser.GetEx("memberOf").count

        MY_FILE.writeline "Nombre de groupes " & arrMemberOfNumber & vbCRLF
    	
    	For Each Group In arrMemberOf
    	    	MY_FILE.writeline vbTab & "- " & USER_GROUP
    	Next
    
        
Loop

Merci par avance de vos avis eclairés

PhBeranger

[RadPAT]

Salut,

voici ce que je te propose :

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
       Const ADS_SCOPE_SUBTREE = 2
 
       Set objConnection = CreateObject("ADODB.Connection")
       Set objCommand =   CreateObject("ADODB.Command")
       objConnection.Provider = "ADsDSOObject"
       objConnection.Open "Active Directory Provider"
       Set objCommand.ActiveConnection = objConnection
 
       objCommand.Properties("Page Size") = 2000
       objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
 
       objCommand.CommandText = "SELECT Name FROM 'LDAP://dc=fabrikam,dc=com' WHERE objectCategory='group'"
       Set objRecordSet = objCommand.Execute
 
       Msgbox objRecordSet.RecordCount

Dis moi si ca te conviens ou pas.

A++

[phberanger]

Bonjour et merci pour la réponse,

J'ai oublié de préciser une ligne importante dans mon code d'hier, c'est qu'en fait je fais un select sur "objectCategory='user'". Donc je récupère diverses infos utilisateurs (tel,mobile,email....) puis les groupes relatifs à chaque utilisateur. J'ai trouvé un palliatif en faisant un incrément sur une variable.

objCommand.CommandText = _
"SELECT * FROM 'LDAP://dc=ums-gaas,dc=com' WHERE " _
& "objectCategory='group'"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
Do Until objRecordSet.EOF  
    
    Set objUser = GetObject(objRecordSet.Fields("ADsPath").Value)
    objRecordSet.MoveNext
    arrMemberOf = objUser.GetEx("memberOf")   	
    	
For Each Group In arrMemberOf
 Total_Group =  Total_Group +1
Next
MY_FILE.writeline Total_Group

Loop

Encore merci

[phberanger]

Rectificatif, erreur dans le code..

J'ai oublié de préciser une ligne importante dans mon code d'hier, c'est qu'en fait je fais un select sur "objectCategory='user'". Donc je récupère diverses infos utilisateurs (tel,mobile,email....) puis les groupes relatifs à chaque utilisateur. J'ai trouvé un palliatif en faisant un incrément sur une variable.

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
objCommand.CommandText = _
"SELECT * FROM 'LDAP://dc=ums-gaas,dc=com' WHERE " _
& "objectCategory='user'"
 
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
Do Until objRecordSet.EOF  
 
    Set objUser = GetObject(objRecordSet.Fields("ADsPath").Value)
    objRecordSet.MoveNext
    arrMemberOf = objUser.GetEx("memberOf")   	
 
For Each Group In arrMemberOf
 Total_Group =  Total_Group +1
Next
MY_FILE.writeline Total_Group
 
Loop

Merci à ce forum