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

This article has not been checked!

LKB | Created: 02/04/2020 | Version: 0 | Language: EN | Rating: 0 | Outdated: False | Marked for deletion: False

Author: Wim Peeters - Keskon GmbH & Co. KG

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

About the Author

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.

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!