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"
news:E70EBC8A-5B81-4208-8CE8-BEE65B7891F5@microsoft.com...
> 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
>