Salut à tous,

J'ai encore besoin de vos lumières pour une ou deux questions sur la déclaration des tableaux en vbs

Voila mon script:
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
 
Dim objWMIService, colListOfServices, matrice, test
 
matrice = Array("SystemName", "ServiceName", "SystemType")
'affiche la donnée de mon tableau
test = msgbox(matrice(2))
 
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colListOfServices = objWMIService.ExecQuery _
        ("Select * from Win32_Service")
 
For each objService in colListOfServices
 
      ' Probleme de déclaration !!!!!!!!!!!!!!!!!!!!!!!!
	test2 = msgbox(objService.matrice(2))
next
En fait j'aimerais passer une variable stocké dans mon tableau en commande pour l'objet objService, exemple: objService.matrice(2) qui devrait me faire la commande objService.SystemType

J'obtiens une erreur car je pense que mon tableau est mal déclaré

Quelqu'un aurait une idée ??

Merci à tous !!