Here is the script:
On Error Resume Next
Dim strComputer
Dim objWMIService
Dim colProcesses
Dim objProcess
Dim intReturn
strComputer = "sfx0000744su"
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate," _
& "authenticationLevel=pktPrivacy}!\\" & strComputer & "\root\CIMV2")
Set colProcesses = objWMIService.ExecQuery("SELECT * FROM Win32_Process _
WHERE Name = 'mytask.exe'", "WQL", _
wbemFlagReturnImmediately + wbemFlagForwardOnly)
For Each objProcess In colProcesses
WScript.Echo objProcess.Name
intReturn = objProcess.Terminate
WScript.Echo "objProcess.Terminate returned value: " & intReturn
Next