ECRIRE DANS LE JOURNAL DES EVENEMENTS (METHODE 2)

'-----------------------------------------------------------------------------------------
'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