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