LKBEN10629: Howto create an eventlog entry in the windows eventlog with VBScript

Symptom

You would like to automatically create eventlog entries

Cause

none

Solution

You can write a little vbs script with the following contents:

Dim oShell, sLogEntry

Set oShell = CreateObject("WScript.Shell")

sLogEntry = "Hello Lubby"
sLogEntry = sLogEntry & vbCrLf

oShell.LogEvent 4, sLogEntry

'The first parameter determines the type of entry.

'0 SUCCESS
'1 ERROR
'2 WARNING
'4 INFORMATION
'8 AUDIT_SUCCESS
'16 AUDIT_FAILURE

Disclaimer:

The information provided in this document is intended for your information only. Lubby makes no claims to the validity of this information. Use of this information is at own risk!

About the Author

Author: Wim Peeters - Keskon GmbH & Co. KG

Wim Peeters is electronics engineer with an additional master in IT and over 30 years of experience, including time spent in support, development, consulting, training and database administration. Wim has worked with SQL Server since version 6.5. He has developed in C/C++, Java and C# on Windows and Linux. He writes knowledge base articles to solve IT problems and publishes them on the Lubby Knowledge Platform.