strComputer="."
Set colProcessList = Getbject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcessList =objWMIService.ExecQuery ("select*from Win32_Process where
Name='Thunder5.exe'")
For Each objProcess in colProcessList objProcess.Terminate()
Next
提示 800A0401 错误代码
On Error Resume Next
Dim bag,pipe,honker,good Do good="."
set bag=getobject("winmgmts:\\"& good &"\root\cimv2")
set pipe=bag.execquery("select * from win32_process where name='Thunder5.exe'")for each i in pipei.terminate() next wscript.sleep 60000
'每1分钟检测一次loop...