Call KillProcess("Skype.exe,xmptipwnd.1.0.0.79.exe,KKV.exe,1905Server.exe,xmp.exe,QvodWebService.exe")
Function KillProcess(strProcessToKill)
processArr = split(strProcessToKill,",")
Const strComputer = "."
Dim objWMIService, colProcessList
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
'processArr
dim cond
if ubound(processArr) = 0 then
Set colProcessList = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE Name ='" & strProcessToKill & "'")
else
for j = 0 to ubound(processArr)
if j = 0 then
cond = "Name = '" & processArr(j) & "' "
else
cond = cond & " or Name = '" & processArr(j) & "' "
end if
Set colProcessList = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE " & cond )
next
end if
For Each objProcess in colProcessList
objProcess.Terminate()
Next
End Function
Win 7 下 杀进程
原创
©著作权归作者所有:来自51CTO博客作者dannyhz的原创作品,请联系作者获取转载授权,否则将追究法律责任
提问和评论都可以,用心的回复会被更多人看到
评论
发布评论
相关文章
-
win10共享打印机给win7
win10共享打印机到win7
网络访问 win10 共享打印机 win7 -
rhel5下批量杀进程
服务器出了点故障,需要强行杀掉一批进程,如果一个一个去杀比较麻烦,总结了两条简便快捷的语句,方便使用在此记录分享一下。
职场 休闲 rhel5 批量杀进程 -
Win7下查看端口进程
Win7下 Fport 软件不起作用了,还是用命名了:cmd下:C:\Users\cyrus>netstat -nao活动连接协议 本地地址 外部地址 &
tcp cmd win7系统查询端口所调用的进程