strComputer = "."
set fso=CreateObject("Scripting.FileSystemObject")
Set wbemServices = Getobject("winmgmts:\\" & strComputer)
while 1
Set wbemObjectSet = wbemServices.InstancesOf("Win32_Process")
For Each wbemObject In wbemObjectSet
namedata=wbemObject.ProcessId //进程号
if namedata=8900 then
wbemObject.Terminate
end if
Next
WScript.quit
wend
set fso=CreateObject("Scripting.FileSystemObject")
Set wbemServices = Getobject("winmgmts:\\" & strComputer)
while 1
Set wbemObjectSet = wbemServices.InstancesOf("Win32_Process")
For Each wbemObject In wbemObjectSet
namedata=wbemObject.ProcessId //进程号
if namedata=8900 then
wbemObject.Terminate
end if
Next
WScript.quit
wend