【VB技巧】VB结束指定名称的所有活动进程

VB结束指定名称的所有活动进程：

Dim objWMIService As Object, colProcesslist As Object, objProcess As Object
Set objWMIService = CreateObject("winmgmts:{impersonationLevel=Impersonate}!rootcimv2")
Set colProcesslist = objWMIService.ExecQuery("select * from win32_process where name='taskmgr.exe'") '结束所有名为“taskmgr.exe”的进程
For Each objProcess In colProcesslist
    objProcess.Terminate
Next