随笔 - 49  文章 - 0 评论 - 19 
<2008年1月>
303112345
6789101112
13141516171819
20212223242526
272829303112
3456789

Web Site Traffic Counter

常用链接

留言簿(3)

随笔分类(48)

随笔档案(49)

搜索

  •  

积分与排名

  • 积分 - 52987
  • 排名 - 104

最新评论

阅读排行榜

评论排行榜

清除系统日志,源处:http://www.autoit.net.cn/viewthread.php?tid=202&extra=page%3D10

;===================================================================
;清除应用程序、安全性、系统日志
;===================================================================

_CleanEvent(1)
        Func _CleanEvent($s=1)
        $strComputer= "."
        $objWMIService = ObjGet("winmgmts:" & "{impersonationLevel=impersonate,(Backup)}!\\" & $strComputer & "\root\cimv2")

Dim $mylogs[4]
$mylogs[1]="application"
$mylogs[2]="system"
$mylogs[3]="security"

        For $logs in $mylogs
        $colLogFiles = $objWMIService.ExecQuery ('Select * from Win32_NTEventLogFile where LogFileName="' & $logs & '"')
                For $objLogfile in $colLogFiles
                        $objLogFile.ClearEventLog()
                Next
        Next
       
       
       

        MsgBox(64,"清除日志","清除“应用程序”,“安全性”,“系统”成功!!!",2)
EndFunc
posted on 2008-01-18 11:52 疾风随影 阅读(404) 评论(0)  编辑 收藏 引用 所属分类: AutoIT column
只有注册用户登录后才能发表评论。