Write and Add event into application log

Set objShell = WScript.CreateObject("Wscript.Shell")

' 0, 1 , 2 , 4 .... are the types of Events like Error event, Information event, Success event...

objShell.LogEvent 0,"Test Success Event"

objShell.LogEvent 1,"Test Error Event"

objShell.LogEvent 2,"Test Warning Event"

objShell.LogEvent 4, "Test Information Event"

objShell.LogEvent 8, "Test Success Audit Event"

objShell.LogEvent 16, "Test Failure Audit Event"

Click here to get more VBS

Script for OS                                    Script for Registries                Script for Addin

Script for File Operations

Script for WindowsService