[Iska]

Там искать нечего.

Код:

Option Explicit

Dim objSWbemObjectEx


For Each objSWbemObjectEx In WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer(".", "root\cimv2").ExecQuery("SELECT * FROM Win32_Process WHERE Name = 'firefox-01.exe'")
	objSWbemObjectEx.Terminate
Next

WScript.CreateObject("WScript.Shell").Run """C:\Мои проекты\firefox-01.exe""", 1, False

WScript.Quit 0