Uses the EventCreate.exe utility to write an event to a custom event log named Scripts.
Set WshShell = WScript.CreateObject("WScript.Shell") strCommand = "eventcreate /T Error /ID 100 /L Scripts /D " & _ Chr(34) & "Test event." & Chr(34) WshShell.Run strcommand
Set WshShell = WScript.CreateObject("WScript.Shell") strCommand = "eventcreate /T Error /ID 100 /L Scripts /D " & _ Chr(34) & "Test event." & Chr(34) WshShell.Run strcommand