Quiero escribir registro de sucesos cuando este de ejecución de vbscript. Cómo puedo?

Gracias por la ayuda.

InformationsquelleAutor Emree | 2011-09-23

3 Comentarios

  1. 8

    Así:

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

    El 4 es un nivel de gravedad. Usted puede aprender más acerca de la LogEvent método en MSDN.

    • Gracias por ayudar. Donde escribir el registro ? Yo no la encuentro
    • Se debe escribir en el visor de sucesos. Usted puede encontrar que mediante la ejecución de compmgmt.msc desde el cuadro de diálogo ejecutar. Tome una mirada alrededor de Google para el visor de sucesos.
  2. 1

    Este es viejo, pero estoy seguro de que todavía válida.

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

    También necesitan permisos para ser capaz de escribir en el registro de eventos de manera dependiendo del usuario que ejecuta el script que puede o no tener acceso.

    • Gracias por ayudar. Donde escribir el registro ? Yo no la encuentro
  3. 1

    Quizás desee simplemente escribir en su propio archivo de registro.

    Echa un vistazo a mi enlace con más información y detalles

    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

Dejar respuesta

Please enter your comment!
Please enter your name here