How to run Test Set with VAPI-XP-TEST on remote machine ?

I have in workflow following function:

'===============================================================================
' Name: ActivateTestSet
' Description: activate specific test set
' Created by Yuval H. 25.05.2009
'===============================================================================
Sub ActivateTestSet(ModuleScript, TestsetName, TestsetFolderName)
Dim TSName, TSFact, TSList, TS
Dim TSTreeMgr
Dim nPath
Dim TSFolderName, TSFolder
Dim Scheduler, TDFilter
Dim TSTestFact, TSTestList
Dim ExecStatus, RunFinished
Dim iter

on error resume next
Err.clear

set oXTools = CreateObject("SRunner.XTools")

TSName = TestsetName
TSFolderName = TestsetFolderName

' Get the test set
Set TSFact = TDConnection.TestSetFactory
Set TSTreeMgr = TDConnection.TestSetTreeManager

' Get the test set folder passed as an argument to the example code
nPath = "Root\" & Trim(TSFolderName)

Set TSFolder = TSTreeMgr.NodeByPath(nPath)
If TSFolder Is Nothing Then
MsgBox "Could not find folder " & nPath & " in Test Lab", 0, TSName
exit sub
End If

Set TSList = TSFolder.FindTestSets(TSName,true)

If TSList.Count < 1 Then
MsgBox "Test set [" & TSName & "] not exist in the specified folder [" & nPath & "] ", 0, TSName
exit sub
End If

for each TS in TSList
if TS.Name = TSName then exit for
Next

if Not IsObject(TS) then
MsgBox "Test set [" & TSName & "] was NOT located, please call Admin", 0, TSName
exit sub
end if

'Start the scheduler
Set Scheduler = TS.StartExecution("")
'Scheduler.RunAllLocally = true
Scheduler.TdHostName = "10.0.15.117"
Scheduler.run
msgbox "Please DON'T click ok, but after report is opened... !!! error: " & err.number ,16, "Wait !"

SendMail2Automation 
end Sub

I can see in Test Manager on remote machine will up 2 process HP... but script doesn't run.

On local machine is working.