Вы можете вызывать функцию или процедуру, содержащуюся в модуле удаленно.

Для установки этого модуля скопируйте этот код в новый модуль "MyRoutines" или имеющийся модуль VBScript.

'================== START ===============

'Эта функция просто возвращает код модуля, из которого вызывается

Function GetModuleText

       GetModuleText = CurrentModule.Text

End Function

'=================== END ================

Это скрипт, который вызывает функцию модуля, который содержится в удаленной службе:

'================== START ===============

Const SNetComRemote = "NetCom.Remote"

Dim Remote, Root

Set Remote = CreateObject(SNetComRemote)

With Remote

       .Host = "127.0.0.1"

       .UserName = "Administrator"

       .Password = "MyPassword"

       Set Root = .CreateRoot

End With

With Root

       MsgBox .ScriptModules.Module("MyRoutines").AsObject.GetModuleText

End With

Set Root = Nothing

Set Remote = Nothing

'=================== END ================