windows - 我将如何定期备份 Windows 应用程序日志？

Question

我正在使用一个定期记录到 Windows 应用程序日志(可通过事件查看器管理工具查看)的应用程序，并且我正在寻找一种每天备份它的方法。这很重要，因为我们有时会发现应用程序存在问题 - 为了进一步调查，我们需要一周前记录的信息。我们正在寻找的事件不一定仍然存在......我已经尝试增加大小等等，但我认为自动备份会促进这个过程。我们不会以大量日志结束，而是多个中等大小的日志。

我更喜欢一个简单的解决方案，如批处理文件 + Windows 调度程序，但也对其他方法感兴趣。

谢谢

Answer 1

这是我不久前找到的一个 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

只需在计划任务中设置此脚本即可开始!