如何使用vbscript寫事件日誌

Question

我想寫這個vbscript運行時的事件日誌。我怎麼能？

感謝您的任何幫助。

Answer 1

像這樣：

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

4是嚴重性級別。您可以通過MSDN瞭解有關LogEvent方法的更多信息。

Answer 2

這是舊的，但我肯定仍然有效。

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

你還需要的權限能夠寫入到事件日誌，以便根據用戶運行腳本，你可能還是我用不上。

Answer 3

您可能只想寫入您自己的日誌文件。

檢查出我的鏈接更多的信息和細節

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