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

Публикация № 692797

Программирование - Универсальные функции

RDP терминал облако

8
Часто на терминальном сервере, где работает 1С, закрыт или ограничен запуск сторонних приложений, интернет и т.д. Такая ситуация часто встречается в облаках. В данной статье описан простой вариант выхода из ситуации, когда все необходимое стороннее ПО запускается на клиенте. Обработки содержат код, приведенный в статье, и могут быть доработаны под конкретную инфраструктуру.

Для обмена между приложениями на клиентском компьютере и приложениями в терминальной (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 "+УРЛ);
    лТекст.Записать("\\tsclient\D\RDP_Exchange\cmd.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 - первая публичная версия.

8

Скачать файлы

Наименование Файл Версия Размер
RunAppRDPClient_1_0+run.vbs.zip
.zip 4,05Kb
30.10.17
4
.zip 4,05Kb 4 Скачать

См. также

Специальные предложения

Комментарии
Избранное Подписка Сортировка: Древо
1. dreamadv 136 30.10.17 15:43 Сейчас в теме
А вы батенька знаете толк в извращениях :))))
Реализовывал подобное немного другим способом, еще более извращенским :) ВК которая отправляла в порт компьютера с которого установлена RDP сессия запрос. Ну и клиентское приложение которое запускало что-то по запросу сервера.
3. vladismi 161 31.10.17 10:41 Сейчас в теме
(1) Любопытно. Поделитесь, если возможно, опытом. Заранее благодарен.
4. GusevNA 316 31.10.17 21:37 Сейчас в теме
(1)Плюс Вашего метода в том, что можно обрабатывать запрос, а не "ловить" что-то через промежуток времени. Механизм прерываний всегда лучше, чем мониторинг.
2. vladismi 161 31.10.17 10:40 Сейчас в теме
Оставьте свое сообщение