Win 7 Next Kill Process

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

This article is from the "Hangzhou Danny" blog, please be sure to keep this source http://dannyhz.blog.51cto.com/2174974/1560554

Win 7 Next Kill Process