How to write event log using vbscript

I want to write event log when this 开发者_如何学Govbscript run. How to i can?

Thanks for any help.

Like so:

Set shell = CreateObject("WScript.Shell")
shell.LogEvent 4, "Your Message Here"

The 4 is a severity level. You can learn more about the LogEvent method on MSDN.

This is old but I'm sure still valid.

http://msdn.microsoft.com/en-us/library/b4ce6by3

You also need permissions to be able to write to the event log so depending on the user running the script you may or my not have access.

You might want to simply write to your own log file.

Check out my link with more information and details

http://www.yeshaib.com/2010/08/vbscript-in-the-logging/

'----------------------------------------------------------------------
'
' Please Enter Updates with date and name including line of Change
'----------------------------------------------------------------------
'---------------------------------------------------------------------- 

 set objShell = CreateObject("Wscript.Shell")
 set objFSO = CreateObject("Scripting.FileSystemObject")

'--- Main Begins ---------------------------------------

 WriteToLog("Generic Log.vbs - Write This")

'--- Main Ends -----------------------------------------

'--- Write to log --------------------------------------
Sub WriteToLog(strLogMessage)
 Const ForAppending = 8
 Const vbsName = "Generic Log"

 strLogFileName = "C:\GenericLog.log"
 strLogEntryTime = NOW

 'test whether file exists To either write/append to file
 if objFSO.FileExists(strLogFileName) Then
 Set objLogFileTransaction = objFSO.OpenTextFile(strLogFileName, ForAppending)
 Else
 Set objLogFileTransaction = objFSO.CreateTextFile(strLogFileName)
 End if

 objLogFileTransaction.WriteLine strLogEntryTime & chr(9) & chr(58) & chr(9) & vbsName & chr(9) & chr(58) & chr(9) & strLogMessage
 objLogFileTransaction.Close
 WScript.StdOut.WriteLine strLogMessage
 WScript.StdOut.WriteLine ""
End Sub