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

**Acris** · 06/04/2010, 11h27

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 :

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

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 :

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

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

**Flamby38** · 09/04/2010, 10h06

Tu peux essayer quelque chose comme ca :

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