Revision: | 3 |
Committed: | Thu Apr 30 21:30:09 2020 UTC (2 years 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. |
# | 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" |