LKBEN10629: Howto create an eventlog entry in the windows eventlog with VBScript
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 in different European countries and different European languages. He writes knowledge base articles to solve IT problems and publishes them on the Lubby Knowledge Platform where he is one of the most important contributors and the main developer.