Запуск приложений на клиенте из RDP-сессии

Для обмена между приложениями на клиентском компьютере и приложениями в терминальной (RDP) сессии существует API, позволяющий создавать виртуальные каналы.

Об этом написано, например, здесь:
https://msdn.microsoft.com/en-us/library/aa383586(v=vs.85).aspx

Но в этой статье речь пойдет о более простом механизме, пусть и не совершенном, зато очень быстро реализуемом.

Суть метода

Суть метода заключается в том, чтобы создавать из 1С текстовые файлы в папке клиентского компьютера, представляющие из себя bat-файлы, но с расширением txt (создание файлов с расширением bat часто запрещено, например, в 1С-облаках). На клиенте запускается скрипт, который отслеживает появление файла в определенной папке и, если он появляется, переименовывает его в bat и запускает.

Пример реализации метода

Создадим на диске D: клиентского компьютера папку RDP_Exchange.

Создадим тестовую обработку, которая будет запускаться на сервере и открывать ссылку в браузере на клиенте (RunAppRDPClient.epf). Код обработки очень простой (обычные формы):

    лТекст = Новый ТекстовыйДокумент;
лТекст.ДобавитьСтроку("start "+УРЛ);
лТекст.Записать("\tsclientDRDP_Exchangecmd.txt",КодировкаТекста.ANSI);
лТекст = Неопределено;

Путь к папке на клиентском компьютере (в данном случае RDP_Exchange) можно скопировать из Проводника в RDP-сессии.

На клиенте 1 раз запускаем VBS-скрипт (run.vbs), который постоянно отслеживает файл cmd.txt в папке RDP_Exchange.

Set FSO = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")
File = "cmd.txt"
FileCMD = "cmd.txt.bat"
While True
if FSO.FileExists (File) Then
WScript.Sleep (100)
RetCode = FSO.MoveFile (File, FileCMD)
RetCode = WshShell.Run(FileCMD, 0, False)
WScript.Sleep (100)
RetCode = FSO.DeleteFile (FileCMD)
End if
WScript.Sleep (1000)
Wend

Небольшие комментарии к коду VBS
Бесконечный цикл, в котором с задержкой в 1 секунду проверяется наличие файла cmd.txt
Если файл cmd.txt появился, то он переименовывается в bat, запускается, а потом удаляется.
RetCode = WshShell.Run(FileCMD, 0, False) — запуск bat-файла, не отображать окно (0), не дожидаться завершения bat-файла (False).
Задержки WScript.Sleep (…) в секции IF нужны для того, чтобы операции записи и запуска успели выполниться. Обычно 1 сек достаточно, но можно время задержки менять в каждом конкретном случае.
Задержка в бесконечном цикле нужна, чтобы скрипт не нагружал процессор.

Скрипт run.vbs можно завершить из диспетчера задач Windows (процесс WScript.exe). Если wscript.exe несколько, то нужно смотреть по параметрам процесса, там должен быть указан скрипт run.vbs.

Тестирование
Сервер: 1С:Предприятие 8.3 (8.3.10.2580) в облаке scloud.ru
Клиент: Win 8.1 64bit Pro
В интернете встречалась информация, что в WinXP до каких-то сервис-паков есть проблемы с выполнением WScript.Sleep (…) в vbs-скриптах. На WinXP сам не проверял.

История версий

1.0 от 29.10.17 — первая публичная версия.