Subversion Repositories simple_log_event

Rev

Rev 3 | Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 daniel-mar 1 
Dim objMyObject
2 
 
3 
set objMyObject = CreateObject("ViaThinkSoftSimpleLogEvent.ViaThinkSoftSimpleEventLog")
4 
 
5 
const LOGEVENT_MSG_SUCCESS       = 0
6 
const LOGEVENT_MSG_INFORMATIONAL = 1
7 
const LOGEVENT_MSG_WARNING       = 2
8 
const LOGEVENT_MSG_ERROR         = 3
9 
 
10 
objMyObject.LogEvent LOGEVENT_MSG_WARNING, "This is a test warning written by VBS"
11 
 
12 
MsgBox "OK"