标题：备份和清除大型事件日志
出处：gOxiA=苏繁=SuFan Blog
时间：Sat, 09 Jul 2005 10:02:35 +0000
作者：gOxiA
地址：https://goxia.maytide.net/read.php/874.htm

内容：
描述

如果事件日志文件的大小大于 20 MB，就将其备份和清除。

脚本代码strComputer = "."Set objWMIService = GetObject("winmgmts:" _   & "{ impersonationLevel=impersonate, (Backup, Security) }!\\" _       & strComputer & "\root\cimv2")Set colLogFiles = objWMIService.ExecQuery _   ("Select * from Win32_NTEventLogFile")For each objLogfile in colLogFiles   If objLogFile.FileSize > 100000 Then      strBackupLog = objLogFile.BackupEventLog _          ("c:\scripts\" & objLogFile.LogFileName & ".evt")      objLogFile.ClearEventLog()   End IfNext




Generated by Bo-blog 2.1.1 Release