查看完整版本: VBS，用于備份Windows的日志文件，并以電腦名稱+日期為文件名進行備份。

VBS，用于備份Windows的日志文件，并以電腦名稱+日期為文件名進行備份。

VBS，用于備份Windows的日志文件，并以電腦名稱+日期為文件名進行備份。[code]dtmThisDay = Day(Date)
K1B{
}B dtmThisMonth = Month(Date)
J$x?];s0NP,[ dtmThisYear = Year(Date)'N X ]-CO$UIPa(V
strBackupName = dtmThisYear & "_" & dtmThisMonth & "_" & dtmThisDay+^.KO&bb*O v5L
strComputer = "."H a9HB4u
Set objWMIService = GetObject("winmgmts:" _ej2I/fR
& "{impersonationLevel=impersonate,(Backup)}!\\" & _A1KD5x$Z)At
strComputer & "\root\cimv2")
~ E5m2UY7L Set colLogFiles = objWMIService.ExecQuery _
;rKZ;UX8Vy4l ("Select * from Win32_NTEventLogFile where LogFileName='Application'")
!y0`BO3w+w)sf*A6ha&g Set objNetwork = CreateObject("WScript.Network")
| R9k3f%bto strLocalComputer = objNetwork.ComputerName K[;J+tH(Yt

&O E?wZ2qj For Each objLogfile in colLogFiles
L{*{B)cEA objLogFile.BackupEventLog("C:\" & strLocalComputer & "_" & strBackupName & _
j Jm2XV(a,rnA "_application.evt")
(p6B*W h"GN]#F3U Next[/code]

感谢分享

LZ的脚本只有Application 这个日志
4I Rr2eT-y 如何才能添加其他日志，如：System, Security....?