Discussion :

[Invité]

Bonjour j'essai de sortir les infos du journal d'évènements de Windows et j'arrive pas mal à ce que j'aimerais par contre il y a une donnée que je ne suis pas capable d'extraire...

Code :

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

1
2
3
4
 
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_NTLogEvent WHERE LogFile='Application'")

Donc je fais ceci...

Code :

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

1
2
3
4
5
6
7
 
For Each objEvent in colItems
 
    If objEvent.EventCode = 41016 Then       
        writeLog "Computer Name: " & objEvent.ComputerName
        writeLog "Data: " & objEvent.Data
...

J'ai bien les infos du Computer name et des autres options à part le "Data: " & objEvent.Data qui est vide...pourtant il devrait y avoir ceci: Deployment started for computer 101-30FVX52.

Si je me fit à la vue XML que me donne le Event Viewer

Code :

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

1
2
3
4
 
<EventData>
  <Data>Deployment started for computer 101-30FVX52.</Data> 
  </EventData>

Serait ce que je dois "formater" le objEvent.data?

merci pour l'info

[cerede2000]

Bonjour à toi,

Regarde du côté de :

Code VBS :

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

objEvent.Message

Et en passant :

Code VBS :

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

If objEvent.EventCode = 41016 Then

Plutôt filtré à la source :

Code VBS :

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

Set colItems = objWMIService.ExecQuery("Select * from Win32_NTLogEvent WHERE LogFile='Application' AND EventCode=41016")

[Invité]

Bien vu avec le fait de filtrer à la source, ça fonctionne nickel

Du coup objEvent.Message (que j'avais mis en 'comment') fonctionne tout aussi mais j'ai remarqué que l'info ne s'affiche pas pour certain EventID?

Ceci dit pour mes besoins ça fonctionne, merci