Créer une fonction WMI avec appels de différentes classes

Version imprimable

Bonjour à tous,

je souhaiterai créer une fonction wmiquery qui appelle n'importe quelles informations que je souhaiterai.

Je souhaiterai les informations suivantes par exemple :

Message, EventType, TimeGenerated.

mais il se peut que je veuille d'autres informations par nécessairement les mêmes :

EventCode, Message, SourceName....

Je pensai à faire une fonction qui me permettrait de lire ce que je souhaite mais je n'y parviens pas. Mettre les informations en paramètres en quelques sortes.
Je n'ai jamais réalisé de fonction et j'ai toujours utilisé une version standard WMI mais ça devient vite long et laborieux.

FUNCTION WMIQUERY(Property1, Property2,Property3)
.....
END FUNCTION

J'ai lu que je devais utilisé Array() mais je ne parviens pas à faire afficher l'information ni à créer la fonction.

Pourriez vous m'aider ?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 strComputer = "." arrProperty = Array("Message","TimeGenerated","EventType") For Each strProperty In arrProperty Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_NTLogEvent ",,48) Wscript.Echo objItem.strProperty Next
Code de base :
Code:

1 2 3 4 5 6 7 8 9 strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") Set colItems = objWMIService.ExecQuery( _ "SELECT * FROM Win32_NTLogEvent",,48) For Each objItem in colItems Wscript.Echo "EventType: " & objItem.EventType Wscript.Echo "Message: " & objItem.Message Wscript.Echo "TimeGenerated: " & objItem.TimeGenerated Next
Merci d'avance aux membres qui prendront le temps de m'expliquer.

Bonne journée
Acris

Tu peux essayer quelque chose comme ca :

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
'ici je définis l'ordinateur ainsi que la liste des éléments que je souhaite obtenir
strComputer = "." 
Dim monArgument(2)
monArgument(0) = "EventType"
monArgument(1) = "TimeGenerated"
 
'je lance ma fonction de récupération des éléments
Call RecupereWMI(strComputer,monArgument)
 
'fonction de récupération des éléments
Sub RecupereWMI(Computer,Argument)
 
   'récupération de toutes les données
   Set objWMIService = GetObject("winmgmts:\\" & Computer & "\root\CIMV2") 
   Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_NTLogEvent",,48)
 
   'traitement des données en sortie
   For Each objItem in colItems 
 
      'si EventType fait partie des arguments, il est affiché.
      if contains(Argument,"EventType") = 1 then
          Wscript.Echo "EventType: " & objItem.EventType
      end if
 
       if contains(Argument,"Message") = 1 then
           Wscript.Echo "Message: " & objItem.Message
       end if
 
       if contains(Argument, "TimeGenerated") = 1 then
          Wscript.Echo "TimeGenerated: " & objItem.TimeGenerated
        end if
 
   Next
 
End Sub
 
'fonction qui teste si un element fait partie d'un array
Function contains(Array,Element)
 
For each ArrayElement in Array
if ArrayElement = Element then
 contains = 1
 Exit function
end if
Next
contains = 0
 
end function

13/04/2010, 10h51
Acris

Merci beaucoup Flamby38
ça correspond à ce que je cherche à faire.:ccool:
13/04/2010, 16h13
sokai

Citation:

Envoyé par Acris

Bonjour à tous,

Je n'ai jamais réalisé de fonction et j'ai toujours utilisé une version standard WMI mais ça devient vite long et laborieux.

Acris

En effet ^^

Merci Flamby82 pour l'exemple ca va me servir également ! :ccool: