日记假造和排除[操作系统]

删除日记VBS:
cleanevent.vbs
strComputer = "主机名字 By foolishqiang"
Set objWMIService = GetObject（"winmgmts:" _
& "{impersonationLevel=impersonate,（Backup）}!\\" & _
strComputer & "\root\cimv2"）
dim mylogs（3）
mylogs（1）="application"
mylogs（2）="system"
mylogs（3）="security"
for Each logs in mylogs
Set colLogFiles = objWMIService.ExecQuery _
（"Select * from Win32_NTEventLogFile where LogFileName='"&logs&"'"）
For Each objLogfile in colLogFiles
objLogFile.ClearEventLog（）
Next
next
//////////////////////////////////////////////////
 
假造日记,看代码:
///////////////////////////////////////////////
假造一份日记
createlog.vbs
　　set ws=wscript.createobject（"Wscript.shell"）
　　ws.logevent 0 ,"write log success" '成立一个成功履行日记
　　logevent办法
　　logevent的用法:logevent eventtype,"description" [,remote system]
　　eventtype 为日记范例,可以利用的以下:0 成功履行;1 履行出错;2 告诫;4 信息;8 成功审计;16 弊端审计
　　所以上面代码中,把0改成1,2,4,8,16都可,引号下的为日记描写.
附:
XP下有一个新的工具可以成立日记 eventcreate.exe
得到帮忙格局 eventcreate.exe /?