Extraire EventData du Event viewer

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:

---

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:

---

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:

---

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

Bonjour à toi,

Regarde du côté de :

Code:

---

objEvent.Message

---

Et en passant :

Code:

---

If objEvent.EventCode = 41016 Then

---

Plutôt filtré à la source :

Code:

---

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

---

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