Comment écrire le journal des événements à l'aide de vbscript

Je veux écrire de journal des événements lorsque cette exécution vbscript. Comment je peux?

Merci pour toute aide.

OriginalL'auteur Emree | 2011-09-23

  1. 8

    Comme suit:

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

    Le 4 est un niveau de gravité. Vous pouvez en apprendre plus sur le LogEvent méthode sur MSDN.

    Je vous remercie pour votre aide. Où l'écriture du journal ? Je ne le trouve pas
    Il doit écrire à l'observateur d'événements. Vous pouvez la trouver en cours d'exécution compmgmt.msc à partir de la boîte de dialogue exécuter. Jetez un oeil autour de Google pour l'observateur d'événements.

    OriginalL'auteur vcsjones

  2. 1

    C'est vieux mais je suis sûr toujours valide.

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

    Vous avez également besoin d'autorisations pour pouvoir écrire dans le journal des événements donc, en fonction de l'utilisateur qui exécute le script, vous pouvez ou ne pas avoir accès.

    Je vous remercie pour votre aide. Où l'écriture du journal ? Je ne le trouve pas

    OriginalL'auteur Gratzy

  3. 1

    Vous pourriez vouloir simplement écrire votre propre fichier de log.

    Vérifier mon lien avec plus d'informations et de détails

    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

    OriginalL'auteur YeshaiB