[luckyricky_1]

Hi all, first post, just registered.

Sort of need some help, i have found the script below, all well, its a good script, got it working no problem, what if i want to make the script kill 2 processes?

The script is:

Code:

Option Explicit
Dim objWMIService, objProcess, colProcess
Dim strComputer, strProcessKill
strComputer = "."
strProcessKill = "'calc.exe'"

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")

Set colProcess = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = " & strProcessKill )
For Each objProcess in colProcess
objProcess.Terminate()
Next
WScript.Quit

Many Many Many thanks in advance!

[King Coder]

Throw that code into a function and call it twice with two different process names:

strProcessKill = "'calc.exe'"

[luckyricky_1]

Hi King Code, thank you for your reply.

I am not a coder, i picked this code up when i was looking through google and found it really interesting.

Is it possible for you to insert the function? I have looked through google but seems to be more then 1 function, i tried to put one it but it didn't work :|

Many thanks again for your reply,

Richard

[m.timoney]

coder probably means this

Code:

private sub KillProcess(strProcessKill  as string)
Dim objWMIService, objProcess, colProcess
Dim strComputer, strProcessKill
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")

Set colProcess = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = " & strProcessKill )
For Each objProcess in colProcess
objProcess.Terminate()
Next
end sub

then you call
KillProcess("calc.exe")
KillProcess("winword.exe")
WScript.Quit
and you've killed 2 processes

warning the above code in untested and written on the fly and is used to convey the idea of how to do it not the code that will do it