Ecrire dans le journal des evenements (methode 2)

Commenter

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

S'inscrire maintenant

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.

Du même auteur (JuanedaEr)