Описание практической задачи:
В базе 1С под платформой версии 8.1 настроено взаимодействие с SQL-сервером сторонней организации.
С этого SQL-сервера в базу 1С загружаются некоторые данные.
Эта загрузка может выполняться как на стороне клиента 1С,
так и на стороне сервера 1С-Предприятия (в регламентном задании).
Кроме этого на стороне клиента 1С имеются онлайновые сервисы,
выполняющие добавление и удаление определенных данных на SQL-сервере.
Связь со сторонним SQL-сервером организована через VPN.
Причем на разных серверах используются разные VPN-соединения под разными пользователями.
И было бы все хорошо, но VPN-соединение вещь капризная – регулярно вылетает.
Поэтому приходилось часто заходить на сервера и перезапускать VPN-соединения вручную.
В связи с описанным возникла идея, при необходимости «пинать» VPN из самой 1С из командной строки.
Переподключать VPN-соединение требуется в самых вариантах:
- на стороне клиента 1С;
- на стороне сервера 1С;
- на стороне клиента с передачей выполнения команды на сервер 1С.
При переподключении соединения естественно надо контролировать результат выполнения действия.
Решение задачи:
После общения с админами выяснилось следующее:
Команда для подключения VPN-соединения:
“rasdial ИмяСоединения ИмяПользователя Пароль /DOMAIN:ИмяДомена”
Команда для разрыва VPN-соединения:
“rasdial ИмяСоединения /DISCONNECT”.
В связи с этим напрашивается два штатных для 1С варианта решения задачи:
1) Процедура КомандаСистемы(СтрокаКоманды,)
2) Процедура ЗапуститьПриложение(СтрокаКоманды,,Истина)
Первый вариант отпадает, поскольку процедура не доступна на стороне сервера 1С.
Второй вариант также не годится, поскольку не работает на стороне сервера 1С для платформы 8.1.
Кроме этого узнать результат выполнения команды с помощью процедуры ЗапуститьПриложение()
можно только для платформы 1С, начиная с версии 8.2.15.
Поэтому для решения задачи было решено использовать возможности COM-объекта “WScript.Shell”,
предоставляемого сервером сценариев Windows (WSH), который подробно описан
в цикле публикаций StepByStep(©): //infostart.ru/public/165702/, //infostart.ru/public/166391/, //infostart.ru/public/166440/ .
У этого объекта имеется метод Run(СтрокаКоманды,РежимОкна,ОжидатьЗавершение),
позволяющий выполнить любую команду системы с контролем ее результата:
// синхронное выполнение в свернутом окне
КоннекторCOM = Новый COMОбъект("WScript.Shell");
ExitCode = КоннекторCOM.Run (СтрокаКоманды, 2, Истина);
Если ExitCode > 0 Тогда
ЕррорИнфо = "Ошибка выполнения команды: КодОшибки =" + ExitCode;
Иначе
ЕррорИнфо = "";
КонецЕсли;
Реализация решения задачи:
По ряду соображений для реализации задачи было решено приспособить план обмена «Обмен данными COM» в составе подсистемы «COMExchange».
Для этого в плане обмена, начиная с версии подсистемы 8.1.1.3, были сделаны следующие изменения:
1) Часть функционала из модуля объекта плана обмена "ОбменДаннымиCOM" перенесена в новый общий модуль "COMУзел"
(для совместимости с видимостью контекстов в управляемом приложении) с сохранением обратной совместимости;
2) Добавлено пользовательское событие ПередОтключением(Соединение, Disconnect), которое позволяет переопределить
строку соединения с источником данных (строку команды) или текст модуля закрытия соединения;
3) Добавлена возможность подключения-отключения к источнику данных на стороне сервера с инициализацией (передачей управления)
со стороны клиента - регулируется опцией подключения-отключения «ВыполнятьНаСервере» (Рис.4, Рис.6);
4) Добавлена возможность заново создавать COM-объект приложения источника данных КоннекторCOM перед выполнением
модуля закрытия соединения - регулируется опцией отключения «ПересоздатьCOM» (Рис.6);
5) В список стандартных настроек плана обмена добавлены настройки для работы с операционной системой через объект "WScript.Shell" (Рис.2);
6) В форме автозаполнения добавлено заполнение стандартных узлов с кодами "WSH.Run" и "WSH.Exec" (Рис.1);
7) В дополнение к реквизитам «Пользователь» и «Пароль» добавлен реквизит «Домен» и соответствующее ему макроимя !Домен!
в строке соединения для указания домена пользователя (Рис.3);
8) В дополнение к реквизиту «Используется» добавлен реквизит «ИмяКомпьютера» для поиска нужного узла
в зависимости от компьютера, на котором запущен сеанс 1С (Рис.3).
Описание демонстрационной информационной базы:
В файле поставки к статье COMExchangeDemо.rar находится выгрузка информационной базы
для демонстрации реализованного функционала управления VPN-соединениями.
В план обмена «Обмен данными COM» этой базы добавлены три дополнительных узла ( Рис.1):
- Стандартные узлы "WSH.Run" и "WSH.Exec" для выполнения произвольных команд через COM-объект "WScript.Shell"
- Узел "УправлениеVPN" – настроен специальным образом для управления VPN-соединением.
Для проверки работы подключения-отключения VPN нужно исправить сохранённые в узле параметры VPN-соединения, а затем
выполнить пробное подключение ( Рис.4, Рис.5) и пробное отключение ( Рис.6) от источника данных.
Если при этом для VPN-соединения не указывается домен – его придётся убрать из строки соединения;
В демонстрационной базе также имеется тестовая обработка «Управление VPN-соединением из 1С» (Рис.7), выполняющая следующие действия:
- По заданным параметрам VPN формирует строки команд подключения и отключения;
- По кнопке «Подключить» выполняется подключение (Рис.8) VPN-соединения;
- По кнопке «Отключить» выполняется отключение (Рис.9) VPN-соединения;
- По кнопке «Переподключить» обработка пытается последовательно выполнить отключение и подключение VPN-соединения;
- Флаг «Выполнять на сервере» позволяет «перенаправить» выполнение команды подключения-отключения с клиента на сервер 1С;
Для выполнения подключения и отключения VPN-соединения обработка использует стандартный узел "WSH.Run".
При этом в пользовательских событиях ПередПодключением() и ПередОтключением()
переопределяется строка соединения с источником данных узла, используемая в качестве строки команды.
Благодарности:
Выражаю благодарность коллегам - системным администраторам, за плодотворное общение.
Вступайте в нашу телеграмм-группу Инфостарт
