Login | ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/simple_log_event/trunk/LogTestUsingVBS/LogTest.vbs
Revision: 3
Committed: Thu Apr 30 21:30:09 2020 UTC (2 years, 2 months ago) by daniel-marschall
File size: 379 byte(s)
Log Message:
The event source name can now also be set. Added setup for even more easier installation.

File Contents

# Content
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 "MySourceName", LOGEVENT_MSG_WARNING, "This is a test warning written by VBS"
11
12 MsgBox "OK"