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

发布时间：2020-12-14 04:01:07 所属栏目：Windows 来源：网络整理

导读：我正在使用一个定期登录到 Windows应用程序日志的应用程序(可通过事件查看器管理工具查看),我正在寻找一种每天备份它的方法.这很重要,因为我们有时会发现应用程序存在问题 – 并且进一步调查我们需要一周前记录的信息.我们正在寻找的事件不一定仍然存在…我

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

我更喜欢像批处理文件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 & "rootcimv2")

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("servereventlogs" & 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

只需在计划任务中设置此脚本,您就可以开始了！

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!