1. #1
    Membre régulier
    Homme Profil pro
    Inscrit en
    juillet 2011
    Messages
    137
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : juillet 2011
    Messages : 137
    Points : 83
    Points
    83

    Par défaut 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 : 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

  2. #2
    Membre expert
    Homme Profil pro
    Architecte de système d'information
    Inscrit en
    juillet 2004
    Messages
    2 710
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 30
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Architecte de système d'information

    Informations forums :
    Inscription : juillet 2004
    Messages : 2 710
    Points : 3 313
    Points
    3 313

    Par défaut

    Bonjour à toi,

    Regarde du côté de :

    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")
    Par pitié !!!! :Si vous ne savez pas faire cliquez ici !
    Citation Envoyé par Marc-L
    C'est dommage que parfois tu sois aussi lourd que tu as l'air intelligent…

  3. #3
    Membre régulier
    Homme Profil pro
    Inscrit en
    juillet 2011
    Messages
    137
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : juillet 2011
    Messages : 137
    Points : 83
    Points
    83

    Par défaut

    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

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Event viewer error onStart
    Par topolino dans le forum Windows Forms
    Réponses: 0
    Dernier message: 28/01/2010, 14h44
  2. IIS monitoring ? event viewer ?
    Par Nycos62 dans le forum Services Web
    Réponses: 3
    Dernier message: 08/01/2010, 11h32
  3. [Event Viewer] Suivi des connexions
    Par LeoAnderson dans le forum Windows
    Réponses: 6
    Dernier message: 30/03/2009, 14h20
  4. Comment résoudre les erreurs "Event viewer"
    Par flo456 dans le forum Windows Serveur
    Réponses: 12
    Dernier message: 18/04/2007, 11h25
  5. delphi et event viewer
    Par Irene dans le forum Delphi
    Réponses: 1
    Dernier message: 18/07/2006, 12h22

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo