Comptage dans un array

Version imprimable

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:

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

Salut,

voici ce que je te propose :

Code:

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++

Comptage dans un array

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:

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

Comptage dans un array

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:

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