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

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

_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