概述

我正在使用一个定期登录到 Windows应用程序日志的应用程序(可通过事件查看器管理工具查看),我正在寻找一种每天备份它的方法.这很重要,因为我们有时会发现应用程序存在问题 – 并且进一步调查我们需要一周前记录的信息.我们正在寻找的事件不一定仍然存在…我已经尝试增加大小和所有这些,但我认为自动备份将促进该过程.我们不会得到大量的日志,而是多个中等大小的日志. 我更喜欢像批处理文件Windows S

我更喜欢像批处理文件Windows scheduler这样的简单解决方案,但也会对其他方法感兴趣.

谢谢

解决方法

这是我刚才发现的WMI脚本.这可能是你正在寻找的！

dim strComputer = "." 'Define here the Remote IP Address or Computername
dim objWMIservice
dim colLogFiles
dim objLogfile
dim errBACkupLog

Set objWMIservice = GetObject("winmgmts:" & "{impersonationLevel=impersonate,(BACkup)}!\\" &  strComputer & "\root\cimv2")

Call eventlogBACkup("Application")
Call eventlogBACkup("System")
Call eventlogBACkup("Security")

Function eventlogBACkup(logtypE)

Set colLogFiles = objWMIservice.ExeCQuery ("SELECT * FROM Win32_NTEventLogFile WHERE LogFilename='" & logtype & "'")

For Each objLogfile in colLogFiles
 errBACkupLog = objLogFile.BACkupEventLog("\\server\eventlogs\" & strComputer & "\" &logtype & ".evt")
 If errBACkupLog <> 0 Then
    Wscript.Echo "The " & logtype &" event log Could not be BACked up."
 Else
    objLogFile.ClearEventLog()
    Wscript.Echo "The " & logtype &" event log is BACked up."
 End If
Next

End Function