标题:备份和清除事件日志 出处:gOxiA=苏繁=SuFan Blog 时间:Sat, 09 Jul 2005 10:02:26 +0000 作者:gOxiA 地址:https://goxia.maytide.net/read.php/875.htm 内容: 描述 备份和清除应用程序事件日志。 脚本代码strComputer = "."Set objWMIService = GetObject("winmgmts:" _ & "{ impersonationLevel=impersonate,(Backup) }!\\" & _ strComputer & "\root\cimv2")Set colLogFiles = objWMIService.ExecQuery _ ("Select * from Win32_NTEventLogFile where LogFileName='Application'")For Each objLogfile in colLogFiles errBackupLog = objLogFile.BackupEventLog("c:\scripts\application.evt") If errBackupLog <> 0 Then Wscript.Echo "The Application event log could not be backed up." Else objLogFile.ClearEventLog() End IfNext Generated by Bo-blog 2.1.1 Release