'*** v9.9 *** www.dieseyer.de ******************************
'
' Datei:  eventlog.vbs
' Autor:  dieseyer@gmx.de
' Auf:    www.dieseyer.de
'
' Den Abarbeitungsstatus eines Skripts kann man mit einem
' Einzeiler oder mit der Prozedur 'AnwendungEreignisInEventLog'
' in die Ereignisanzeige (Eventlog) Anwendungen (Application)
' schreiben.
'
'***********************************************************

Option Explicit ' Siehe http://dieseyer.de/dse-wsh-lernen.html#OptionExpl

  Dim Tst

  Tst = WSCript.ScriptName & " wurde gestartet . . . "
  AnwendungEreignisInEventLog 0, Tst 

  WScript.Sleep 2*1000

  WScript.CreateObject("WScript.Shell").LogEvent 2, "Das geht auch in einer Zeile!"

  Tst = WSCript.ScriptName & " wird jetzt beendet."
  AnwendungEreignisInEventLog 4, Tst 

WScript.Quit

'*** v9.9 *** www.dieseyer.de ******************************
Sub AnwendungEreignisInEventLog( EventType, Txt )
'***********************************************************
' Mögliche Werte für den EventType:
' 0	SUCCESS 
' 1	ERROR 
' 2	WARNING 
' 4	INFORMATION 
' 8	AUDIT_SUCCESS 
' 16	AUDIT_FAILURE 

  WScript.CreateObject("WScript.Shell").LogEvent EventType, Txt

End Sub ' AnwendungEreignisInEventLog( EventType, Txt )