Ecrire dans le journal des evenements (methode 2)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 379 fois - Téléchargée 25 fois

Contenu du snippet

Cet exemple permet d'ajouter des messages dans le journal des événements. Le code utilise Windows Scripting Host (WSH) qui est installé en standard sur la quasi totalité de OS Microsoft. Le programme ajoute des messages dans le journal 'applications', la source est du message est 'WSH'.

Source / Exemple :


'-----------------------------------------------------------------------------------------
'AJOUTE UN EVENEMENT AU JOURNAL DES EVENEMENTS
'-----------------------------------------------------------------------------------------
'
'Version      : 1.0
'Auteur       : Eric Juaneda
'Création     : Jeudi 22 juin 2006
'Modification :
'-----------------------------------------------------------------------------------------
'Ajoute un évènement dans le journal des Applications dont la source est WSH
'
'Pour plus d'information, ajouter à votre projet VB la référence
'à l'objet 'Windows Script Host Object Model'
'Emplacement        : C:\WINNT\system32\wshom.ocx
'Bibliothèque       : IWshRuntimeLibrary
'-----------------------------------------------------------------------------------------

Option Explicit
  
Sub Main()
    Dim WshShell As Object
    Dim Message As String
    Dim msgType As Long
    
    Set WshShell = CreateObject("WScript.Shell")
    
    Message = "Mon message d'information"
    msgType = 2
        '0  Success
        '1  Error
        '2  Warning
        '4  Information
        '8  Audit Success
        '16 Audit Failure
    
    WshShell.LogEvent msgType, Message ', machineName

End Sub

A voir également

Ajouter un commentaire

Commentaire

Messages postés
521
Date d'inscription
mardi 24 décembre 2002
Statut
Membre
Dernière intervention
11 septembre 2008
5
C'est une solution, mais son defaut c'est que l'on n'a pas la source du message (le nom du programme qui a ecrit dans le journal) et on ne peut pas definir soit meme l'ID d'evenement (tres pratique pour coupler avec des outils de supervision qui TRAP les ID d'evenements pour déclencher des alertes).
C'est l'avantage d'utiliser les API (cf: http://www.vbfrance.com/code.aspx?ID=33316).
Son avantage, c'est que le code est vraiment tres simple.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.