strComputer = "computer_name"
strProcess = "file.exe"
set colProcesses = GetObject("winmgmts:\\" & strComputer & "\root\cimv2").ExecQuery("Select * from Win32_Process Where Name='" & strProcess & "'")
if colProcesses.count <> 0 then
for each objProcess in colProcesses
objProcess.Terminate()
next
end if
set objShell = Wscript.CreateObject("wscript.shell")
objShell.Run "c:\path\to\file.exe"