关于我们┊AboutMe

昵称:Hopol(■童■)

联系:QQ:18883

邮箱:info(at)18883.com

主页:www.18883.com

手机浏览 日志归档 RSS 2.0 订阅
Register | Login

清除系统日志Au3源码

挺实用的脚本.清除系统日志.

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

_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

Tags: 清除, 系统, 日志, au3, 源码

« 上一篇 | 下一篇 »

只显示10条记录相关文章

dede5.1 UTF8商业版 (浏览: 231, 评论: 1)
dede5.1 BGK商业版 (浏览: 256, 评论: 0)
MyPic图片管理系统 (浏览: 162, 评论: 0)
MyPic v1.0 (MyPic图片管理系统) (浏览: 289, 评论: 0)
PHP在图片上写上中文[备份] (浏览: 205, 评论: 0)
AU3热血江湖群医辅助工具 (浏览: 697, 评论: 0)
AU3---简单任务管理器 (浏览: 630, 评论: 0)
MyBc_V4.6 完整源码 (浏览: 621, 评论: 0)
D版CGO修复程序 源码 (浏览: 627, 评论: 0)
锐起绿色连接器完全后台版 au3源码 (浏览: 674, 评论: 0)

发表评论