Subversion Repositories simple_log_event

Rev

Rev 2 | Go to most recent revision | Details | Compare with Previous | 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 
 
3 daniel-mar 10 
objMyObject.LogEvent "MySourceName", LOGEVENT_MSG_WARNING, "This is a test warning written by VBS"
2 daniel-mar 11 
 
12 
MsgBox "OK"