Rev 2 | Go to most recent revision | View as "text/vbscript" | Blame | Compare with Previous | Last modification | View Log | RSS feed
Dim objMyObject
set objMyObject = CreateObject("ViaThinkSoftSimpleLogEvent.ViaThinkSoftSimpleEventLog")
const LOGEVENT_MSG_SUCCESS = 0
const LOGEVENT_MSG_INFORMATIONAL = 1
const LOGEVENT_MSG_WARNING = 2
const LOGEVENT_MSG_ERROR = 3
objMyObject.LogEvent "MySourceName", LOGEVENT_MSG_WARNING, "This is a test warning written by VBS"
MsgBox "OK"