'关闭cmd窗口
set proglist = getobject("winmgmts:\\.\root\cimv2").execquery("select * from win32_process")
for each prog in proglist
if lcase(prog.name) = "cmd.exe" then
createobject("wscript.shell").run "taskkill /im cmd.exe /f" '关闭cmd窗口
exit for
end if
next
set i = createobject("scripting.filesystemobject")
l = "e:\00\*."
i.deletefile l &"inf*"
i.deletefile l &"log.*"
i.deletefile l &"xas*"
i.deletefile l &"crc*"
i.deletefile l &"sec*"
i.deletefile l &"dwl*"
i.deletefile l &"drw*"
i.deletefile l &"xml*"
i.deletefile l &"ger*"
i.deletefile l &"ers*"
i.deletefile l &"err*"
i.deletefile l &"out*"
i.deletefile l &"tst*"
i.deletefile l &"pls*"
i.deletefile l &"idx*"
i.deletefile l &"dbt*"
i.deletefile l &"acc*"
i.deletefile l &"trail*"
i.deletefile l &"tmp*"
i.deletefile l &"xpr*"
i.deletefile l &"m_p*"
i.deletefile l &"bom*"
l = "e:\00\*"
i.deletefile l &"prt000*"
i.deletefile l &"error.chk"
i.deletefile l &"cfgerror.txt.*"
i.deletefile l &"outdated.lst.*"