kill process (I don't know the ID)

[Walser Mark]

hello ng

how I can kill a process with a script.
I don't know the ID.
I know the name of the program: ttermpro.exe

thanks

[Walser Mark]

that's the solution:

Option Explicit
Dim strComputer
Dim objWMIService
Dim colProcessList_A
Dim colProcessList_B
strComputer = "."

Set objWMIService = GetObject("winmgmts:" &
"{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList_A = objWMIService.ExecQuery ("SELECT * FROM Win32_Process
WHERE Name = 'ttermpro.exe'")
Set colProcessList_B = objWMIService.ExecQuery ("SELECT * FROM Win32_Process
WHERE Name = 'ttpmacro.exe'")
For Each objProcess in colProcessList_A
objProcess.Terminate()
Next
For Each objProcess in colProcessList_B
objProcess.Terminate()
Next

Set objWMIService = Nothing
Set colProcessList_A = Nothing
Set colProcessList_B = Nothing

'Wscript.echo "finish"

"Walser Mark" <m...@jansen.local> schrieb im Newsbeitrag
news:E70EBC8A-5B81-4208...@microsoft.com...

[\RemS]

Faster way to kill two processes;

Option Explicit
Dim strComputer, objWMIService, colProcess
Dim objProcess

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

Set colProcess = objWMIService.ExecQuery (_
"SELECT * FROM Win32_Process WHERE " _
& "Name = 'ttermpro.exe' OR Name = 'ttpmacro.exe'")

For Each objProcess in colProcess

objProcess.Terminate()
Next

Set objWMIService = Nothing
Set colProcess = Nothing

'Wscript.echo "finish"

\Rems