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