Comment avoir la taille d'un tableau ?

Bonjour,

voilà deux jour que je cherche à connaitre la taille d'un tableau:

Code:

---

arrMemberOf = objConteneur.member

---

qui liste des membres, je ne détaille pas le reste du code.

j'ai essayé avec arrMemberOf.Length-1 mais j'ai le msg d'erreur "Objet requis". avec Ubound j'ai certaine bonnes valeurs mais d'autres ne sont pas prises en compte ce qui fait que mon résultat n'est pas complet

Qqun pourrait-il m'aider? sachant que je suis novice

Merci

bonjour,
es-tu bien sûr que la propriété member renvoie bien un tableau et non un objet collection ?
si c'est une collection:

Code:

---

arrMemberOf.Count

---

si c'est un tableau:

Code:

---

UBound(arrMemberOf,1) - LBound(arrMemberOf,1)

---

slt

il s'agit bien d'un tableau.

j'ai essayé

Code:

---

Ubound(arrMemberOf) - Lbound(arrMemberOf) + 1

---

ca a l'air de donner les bons résultats

Est ce la meme chose que?:

Code:

---

UBound(arrMemberOf,1) - LBound(arrMemberOf,1)

---

Citation:

---

Est ce la meme chose que?:

---

non

la fonction UBound accepte un paramètre facultatif qui précise l'indice de la dimension cherchée
donc la forme UBound(myarray) est + simple si myrray n'a qu'une dimension

on pourrait faire encore + simple en supprimant LBound qui renvoie toujours 0 lorsque la variable tableau
a été créée par vbs mais dans ton cas s'il s'agit d'un tableau renvoyé par un objet COM il est plus prudent de le conserver

Ok ben ca me donne pas les bons résultats :?

pour les groupes ayant un seul utilisateur, il me renvoie une valeur fausse, des fois il reprend la valeur précédente, des fois aucune valeur.

En fait j'ai fait ce script pour repérer les groupes vides, les groupes à très peu d'utilisateurs, et les groupes avec trop d'utilisateurs pr faire le ménage ds l'AD.
Le résultat est qu'il repère bien les groupes vides, les groupes à un utilisateur n'ont pas le bon résultat comme je l'ai dit plus haut, par exemple plusieurs groupes dont le résultat m'indique qu'ils sont vides

Voici mon code:

Code:

---

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

strOU = inputbox("Entrez l'OU: ", "Renseignement") Set objConnexion = GetObject ("LDAP://OU=" & strOU & ",OU=***,DC=***,DC=***,DC=***")     If Err.Number <> 0 then MsgBox "Erreur: cette OU n' existe pas" Else Set objFSO = CreateObject ("Scripting.FileSystemObject") Set objFile = objFSO.CreateTextFile("c:\" & strOU &"_OU.csv") 'Wscript.Echo "[ Debug ]: Local Groups"   For each objConteneur in objConnexion arrMemberOf = objConteneur.member strGroupName = (Right(objConteneur.Name,Len(objConteneur.Name)-3)) arrLength = Ubound(arrMemberOf,1) - Lbound(arrMemberOf,1) + 1 Wscript.Echo "[ Debug ]: " & objConteneur.Name wscript.echo "[ Debug ]: " & arrLength   If IsEmpty(arrMemberOf) Then 'Wscript.Echo "[ Debug ]: " & objConteneur.Name objFile.WriteLine strGroupName & " ; " Else 'Wscript.Echo " [Debug] " & strGroupName objFile.WriteLine " " & strGroupName & " ; " & arrLength End if Next Wscript.Echo "Creation du fichier reussie: c:\" & strOU &"_OU.csv" End if

---

je pense avoir une piste. j'ai fais mes tests sur des groupes locaux, certains englobent un ou plusieurs groupes globaux, et ca il me le compte pas ou il me donne une valeur correspondante à la précédente trouvée. 8O