'Создаем объект RPC-клиента

Set RPCClient = WScript.CreateObject("RoutixRPCCOM.Client")

'Подключаемся к серверу

RPCClient.Connect "127.0.0.1:40404", "RoutixUser", "Secret"

'Запрашиваем нужный объект с сервера

Set fso = RPCClient.RequestObject("Scripting.FileSystemObject")

Const WindowsFolder   = 0

Const SystemFolder    = 1

Const TemporaryFolder = 2

'Вызываем методы удаленного объекта

WScript.Echo fso.GetSpecialFolder(WindowsFolder)

WScript.Echo fso.GetSpecialFolder(SystemFolder)

WScript.Echo fso.GetSpecialFolder(TemporaryFolder)

'Все полученные от сервера объекты должны быть

'уничтожены до того, как будет уничтожен сам RPC-клиент!

Set fso = Nothing

'Уничтожаем сам RPC-клиент

Set RPCClient = Nothing

WScript.Echo vbCRLF & "Нажмите клавишу "ANYKEY"..."

WScript.StdIn.Read(1)