Tableau et déclaration/type

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:

---

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é :aie:

Quelqu'un aurait une idée ??

Merci à tous !!

Je n'arrive pas à déclarer mon tableau avec des objets:

Code:

---

1 2	Dim matrice(2) as object

---

Code:

---

matrice = Array("SystemName", "ServiceName", "SystemType") as object

---

Aucune de ces 2 lignes ne fonctionnent :(
ERROR : Expected end of statement

Salut

En VBScript on ne type pas les variables.

Donc impossible de mettre des commandes dans un tableau (exemple: objService.name) et d'utiliser cette ligne du tableau plus loin dans le programme ??

bonjour,
c'est ton approche du wmi qui n'est pas correcte
ta requête wmi te renvoie déjà une collection que tu énumères dans la boucle for...each
pourquoi vouloir utiliser un tableau ? :koi:
tu trouveras ici la liste de toutes les propriétés et méthodes
de l'objet Win32_Service dont l'instance dans ton script est objService
par ailleurs, il n'est pas possible de créer une classe dérivée de Win32_Service qui ajouterait de
nouvelles propriétés persos comme SystemType ou ServiceName car vbs a un support partiel de la poo et ne gère pas l'héritage :roll:
en revanche, ServiceType ou SystemName existent déjà :mrgreen:

Bonjour,

En fait j'utilise les commandes suivantes:

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 29 30 31 32 33 34

objExcel.Cells(L, C).Value = objservice.SystemName C= C +1 objExcel.Cells(L, C).Value = objservice.Name C= C +1 objExcel.Cells(L, C).Value = objservice.ServiceType C= C +1 objExcel.Cells(L, C).Value = objservice.State C= C +1 objExcel.Cells(L, C).Value = objservice.ExitCode C= C +1 objExcel.Cells(L, C).Value = objservice.ProcessID C= C +1 objExcel.Cells(L, C).Value = objservice.AcceptPause C= C +1 objExcel.Cells(L, C).Value = objservice.AcceptStop C= C +1 objExcel.Cells(L, C).Value = objservice.Caption C= C +1 objExcel.Cells(L, C).Value = objservice.Description C= C +1 objExcel.Cells(L, C).Value = objservice.DesktopInteract C= C +1 objExcel.Cells(L, C).Value = objservice.DisplayName C= C +1 objExcel.Cells(L, C).Value = objservice.ErrorControl C= C +1 objExcel.Cells(L, C).Value = objservice.PathName C= C +1 objExcel.Cells(L, C).Value = objservice.Started C= C +1 objExcel.Cells(L, C).Value = objservice.StartMode C= C +1 objExcel.Cells(L, C).Value = objservice.StartName

---

En fait, j'aimerais alléger le code "objExcel.Cells(L, C).Value = objservice." qui est toujours le meme..

J'avais idée qu'avec un tableau je pourrais faire: "objExcel.Cells(L, C).Value = objservice.monTableau(premiere valeur+1)" avec une sorte d'incrémentation de la valeur du tableau exemple : premiere case du tableau = SystemName, la seconde = ServiceType, etc..

Je suis ouvert a tte autre proposition pour alléger ceci, si quelqu'un a une idée je suis preneur..

Merci à tous :D

Citation:

---

En fait, j'aimerais alléger le code "objExcel.Cells(L, C).Value = objservice." qui est toujours le meme..

J'avais idée qu'avec un tableau je pourrais faire: "objExcel.Cells(L, C).Value = objservice.monTableau(premiere valeur+1)" avec une sorte d'incrémentation de la valeur du tableau exemple : premiere case du tableau = SystemName, la seconde = ServiceType, etc..

---

la 2ème phrase ne répond pas à la 1ère :mouarf:
si c'est la concision du code que tu cherches :

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 29 30 31 32 33 34 35

With objService objExcel.Cells(L, C).Value = .SystemName C= C +1 objExcel.Cells(L, C).Value = .Name C= C +1 objExcel.Cells(L, C).Value = .ServiceType C= C +1 objExcel.Cells(L, C).Value = .State C= C +1 objExcel.Cells(L, C).Value = .ExitCode C= C +1 objExcel.Cells(L, C).Value = .ProcessID C= C +1 objExcel.Cells(L, C).Value = .AcceptPause C= C +1 objExcel.Cells(L, C).Value = .AcceptStop C= C +1 objExcel.Cells(L, C).Value = .Caption C= C +1 objExcel.Cells(L, C).Value = .Description C= C +1 objExcel.Cells(L, C).Value = .DesktopInteract C= C +1 objExcel.Cells(L, C).Value = .DisplayName C= C +1 objExcel.Cells(L, C).Value = .ErrorControl C= C +1 objExcel.Cells(L, C).Value = .PathName C= C +1 objExcel.Cells(L, C).Value = .Started C= C +1 objExcel.Cells(L, C).Value = .StartMode C= C +1 objExcel.Cells(L, C).Value = .StartName End With

---

ou avec objExcel mais pas les deux à la fois :nono:

Juste une remarque as tu déjà fais du développement objet ?
Au vu de tes réponses j'ai l'impression que tu as un problème de compréhension dans ce domaine, non ?

Cette ligne est incohérente :

Code:

---

objService.matrice(2)

---

Sachant que objService repésentent un objet de ta liste d'objets retourné par suite à ta requête WMI et que matrice est un tableau qui n'a rien à voir avec objService.

Si tu es amenés à faire d'autre développement de ce genre, je te conseille de voir (ou revoir) les bases du développement objet, tu galéreras moins une fois assimilé.