locked
Export Event Viewer RRS feed

  • Pergunta

  • Pessoal, tenho um script VBS que exporta os log´s de EVT do Windows 2008R2 lendo os mesmos através de WMI. De uma hora para outra o mesmo parou de funcionar ao exportar os log´s de segurança, só os de segurança não exportam mais, os de sistema e aplicação estão normais,  não sei se foi alguma atualização de segurança que ocorreu mas simplesmente ele não exporta mais. Alguma sugestão do que fazer ? Anexo o script.

    Grato.

    O Objetivo é gerar um backup dos logs de evento pois com a ferramenta de backup ele até faz mas quando se restaura o log fica corrompido.

    strComputer = "servidor01"
    set objWMI = GetObject("winmgmts:\\servidor01\root\cimv2")
    set objDateTime = objWMI.Get("Win32_Localtime=@")
    Set objWMIService = GetObject("winmgmts:" &_
         "{impersonationLevel=impersonate, (Backup, Security)}!\\" &_
             strComputer & "\root\cimv2")
    Set colLogFiles = objWMIService.ExecQuery _
        ("Select * from Win32_NTEventLogFile")

    For Each objLogfile in colLogFiles
        If objLogFile.FileSize > 1 Then
           strBackupLog = objLogFile.BackupEventLog _
               ("E:\Backups\BackupEventViewer\" & objLogFile.LogFileName &"_"& objDateTime.Day &"."& objDateTime.Month &"."& objDateTime.Year &"."& objDateTime.Hour & objDateTime.Minute & ".evt")
        End If
       If strBackupLog <> 0 Then        
            Wscript.Echo "Apresentou erro no backup do event viewer."
        'Else
            'objLogFile.ClearEventLog()    
     'Wscript.Echo "Backup OK."      
        End If

    Next

    segunda-feira, 12 de agosto de 2013 19:32

Respostas

Todas as Respostas