Discussion :

[nikwik]

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

[nikwik]

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

Code :

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

1
2
 
Dim matrice(2) as object

Code :

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

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

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

[ProgElecT]

Salut

En VBScript on ne type pas les variables.

[nikwik]

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

[omen999]

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 ?
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
en revanche, ServiceType ou SystemName existent déjà

[nikwik]

Bonjour,

En fait j'utilise les commandes suivantes:

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

[omen999]

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
si c'est la concision du code que tu cherches :

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

[ced600]

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 :

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

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é.