[问题求助] [已解决]VBS如何结束多个进程呢？

Heykuz

一直用以下代码，如果是多个的时候，也只能复制多一次，把exe名字给改了，代码有点儿累赘。能精简一下吗？例如iexplore.exe，QQ.exe，vb6.exe。

strComputer="."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcessList=objWMIService.ExecQuery ("select * from Win32_Process where Name='iexplore.exe' ") 
For Each objProcess in colProcessList  
objProcess.Terminate()
Next
复制代码

apang

where Name='iexplore.exe' or Name='QQ.EXE' or Name='vb6.exe'

522235677

或者cmd

tasklist /f /im qq.exe /im iexplore.exe
复制代码

strComputer="."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcessList=objWMIService.ExecQuery ("select * from Win32_Process where Name='wscript.arguments(0)' ") 
For Each objProcess in colProcessList  
objProcess.Terminate()
Next
复制代码

或者vbs传递参数

Heykuz

where Name='iexplore.exe' or Name='QQ.EXE' or Name='vb6.exe'
apang 发表于 2014-3-8 19:06

    超级感谢，就是这样。谢谢谢谢谢谢