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