Written by:R Teachout
11/17/2006 12:20 AM

Sub WriteEvent(sText, iType)
 ' iType can be:
 ' 0 = Success
 ' 1 = Error
 ' 2 = Warning
 ' 4 = Informational
 ' 8 = Audit success
 ' 16 = Audit failure
 Dim oShell
 Set oShell = WScript.CreateObject("WScript.Shell")
 oShell.LogEvent iType,sText
End Sub

TrackbackPrint

Location: BlogsRamblings, Scriptlets, and more!VBS / Administration Scriptlets