Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcesses = objWMIService.ExecQuery("SELECT * FROM Win32_Process")
For Each objProcess in colProcesses
For Each strTargetProc In arrTargetProcs
If LCase(objProcess.Name) = LCase(strTargetProc) Then
intReturn = objProcess.Terminate
If intReturn = 0 Then
WScript.Echo "结束进程:"&objProcess.Name&" 成功"
Else
WScript.Echo "结束进程:"&objProcess.Name&" 失败"
End If
End If
Next
Next作者: qinchun36 时间: 2008-4-23 16:31 呵呵,刚才在论坛里面看见的,盗版一下,只有输入语句是我自己加的。。。
另纯为 .vbs 文件
On Error Resume Next
sub Close_Process(ProcessName)
On Error Resume Next
for each ps in getobject("winmgmts:win32_process").instances_
if Ucase(ps.name)=Ucase(ProcessName) then
ps.terminate
end if
next
end sub
ProName=inputbox("输入进程名称","INPUT","qq.exe")
Close_Process(ProName)