Как написать журнал событий, используя vbscript

Question

Я хочу написать журнал событий при запуске этого VBScript.Как я могу?

Спасибо за любую помощь.

Answer 1

Вроде так:

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

4 - уровень серьезности. Вы можете узнать больше о методе LogEvent на MSDN .

Answer 2

Возможно, вы захотите просто написать в свой собственный файл журнала.

Проверьте мою ссылку с дополнительной информацией и подробностями

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

Answer 3

Это старый, но я уверен, что все еще в силе.

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

Вам также необходимы разрешения для записи в журнал событий, поэтому в зависимости от пользователя, выполняющего сценарий, вы можете или не иметь доступа.