Программное отключение сеансов 1С 8.2.

Как отключить пользователей программно в клиент-серверном варианте работы 1С 8.2.

Описание
Подробнее

Описание

Причины возникновения проблемы

Лично у меня на релизах от 8.2.9.х до текущего 8.2.12.96 не всегда происходит полное отключение сеансов. Например, устанавливаю обновление, умный конфигуратор мне выдает кнопку «Завершить сеансы и продолжить», после нажатия на которую остается несколько подключенных соединений.

Также в течение дня часто остаются соединения по закрытым сеансам.

Зачем это нужно

Для себя нашел два пути применения:

1. Перед инсталляцией обновлений необходимо отключить пользователей от системы;

2. Регламентное задание, отвечающее за резервное копирование, должно отключить все подключенные сеансы.

В первом случае удобство состоит в том, что есть кнопка в режиме предприятия, нажав на которую происходит полное завершение.

Как это сделать

Первое, что нам нужно — это определить имя базы и сервер, на котором она расположена. Для этого разбираем строку соединения базы.

Если Найти(СтрокаСоединенияИнформационнойБазы(), «Srvr») > 0 Тогда
// серверный вариант
Поиск1 = Найти(СтрокаСоединенияИнформационнойБазы(), «Srvr=»);
ПодстрокаПоиска = Сред(СтрокаСоединенияИнформационнойБазы(), Поиск1 + 6);
ИмяСервера = Лев(ПодстрокаПоиска, Найти(ПодстрокаПоиска, «»»») — 1);
// теперь ищем имя базы
Поиск1 = Найти(СтрокаСоединенияИнформационнойБазы(), «Ref=»);
ПодстрокаПоиска = Сред(СтрокаСоединенияИнформационнойБазы(), Поиск1 + 5);
ИмяБазы = Лев(ПодстрокаПоиска, Найти(ПодстрокаПоиска, «»»») — 1);
Иначе
// для других способов подключения алгоритм не актуален
Возврат;
КонецЕсли;

Для работы с агентом сервера необходимо использовать COM-объект

Коннектор = Новый COMОбъект(«v82.COMConnector»);

который позволяет подключится к агенту сервера:

Агент = Коннектор.ConnectAgent(ИмяСервера);

Теперь перебираем все кластеры, в которых учавствует агент:

Кластеры = Агент.GetClusters();
Для каждого Кластер из Кластеры Цикл

Чтобы получить доступ к процессам кластера, необходимо аутентифицироваться, если для кластера задан администратор:

АдминистраторКластера = «Имя администратора кластера»;
ПарольКластера = «Пароль администратора кластера»;
Агент.Authenticate(Кластер, АдминистраторКластера, ПарольКластера);

если кластер без ограничения доступа, то следует писать так:

Агент.Authenticate(Кластер, , );

Теперь необходимо получить перечень процессов, которые обрабатывают данный кластер:

Процессы = Агент.GetWorkingProcesses(Кластер);
Для каждого Процесс из Процессы Цикл

Т.к. к рабочему процессу необходимо подключаться через коннектор, то необходимо вычислить порт, на котором работает данный процесс:

Порт = Процесс.MainPort;
// теперь есть адрес и порт для подключения к рабочему процессу
РабПроц = Коннектор.ConnectWorkingProcess(ИмяСервера + «:» + СтрЗаменить(Порт, Символы.НПП, «»));

Рабочий процесс необходимо для разрыва соединений. Разрыв сессий происходит через агента. Опишем подробно. Сначала необходимо аутентифицироваться в рабочем процесс по имени и паролю пользователя, у которого в базе данных есть право «Администратор»:

РабПроц.AddAuthentication(«Имя администратора БД», «Пароль администратора БД»);

На этом этапе есть объект агента и рабочего процесса, который обслуживает текущий кластер. Далее необходимо найти искомую базу данных:

ИнформационнаяБаза = «»;

Базы = Агент.GetInfoBases(Кластер);
Для каждого База из Базы Цикл
Если База.Name = ИмяБазы Тогда
ИнформационнаяБаза = База;
Прервать;
КонецЕсли;
КонецЦикла;
Если ИнформационнаяБаза = «» Тогда
// база не найдена
КонецЕсли;

Отключение сеансов

Итак у нас есть все необходимые объекты для непосредственного обрыва сессий. При это рекомендую полностью разобраться, какие именно сессии мы будем разрывать, иначе можно отключить сессию, в которой выполняется этот код :

Сеансы = Агент.GetInfoBaseSessions(Кластер, ИнформационнаяБаза);
Для каждого Сеанс из Сеансы Цикл
Если нРег(Сеанс.AppID) = «backgroundjob» ИЛИ нРег(Сеанс.AppID) = «designer» Тогда
// если это сеансы конфигуратора или фонового задания, то не отключаем
Продолжить;
КонецЕсли;
Если Сеанс.UserName = ИмяПользователя() Тогда
// это текущий пользователь
Продолжить;
КонецЕсли;
Агент.TerminateSession(Кластер, Сеанс);
КонецЦикла;

Также у типа «Сеанс» есть ещё много разных свойств, например, имя компьютера, данные о языке, времени и длительности подключения и тп.

Отключение соединений

Отключение соединений происходит через объект рабочего процесса. Обрабатывает соединение тип «Соединение», у которого структура свойств напоминает тип «Сеанс». Итак, как отключенить соединения:

СоединенияБазы = Агент.GetInfoBaseConnections(Кластер, ИнформационнаяБаза);
// Разорвать соединения клиентских приложений.
Для Каждого Соединение Из СоединенияБазы Цикл
Если нРег(Соединение.Application) = «backgroundjob» ИЛИ нРег(Соединение.Application) = «designer» Тогда
// если это соединение конфигуратора или фонового задания, то не отключаем
Продолжить;
КонецЕсли;
Если Соединение.UserName = ИмяПользователя() Тогда
// это текущий пользователь
Продолжить;
КонецЕсли;
РабПроц.Disconnect(Соединение);
КонецЦикла;

Выводы

Получен пример отключения сеансов и соединений с информационной базы. При должном знании свойств каждого типа (рабочий процесс, агент сервера, сеанс, соединение) можно, например, сделать откючение конкретного пользователя по расписанию (однако, совершенно другой вопрос зачем это делать) либо, используя данные конструкции, написать внешнее приложение, которое будет использовать COM-объект «v82.COMConnector».

P.S.

Для понимающих работу с этими типами: код намеренно раздут, для того, чтобы под отладчиком было удобнее просматривать значения всех типов. Да, некоторые места можно написать короче и элегантнее, однако цель была в наглядности кода.

Код целиком

Коннектор = Новый COMОбъект(«v82.COMConnector»);
Агент = Коннектор.ConnectAgent(ИмяСервера);
Кластеры = Агент.GetClusters();
Для каждого Кластер из Кластеры Цикл
АдминистраторКластера = «Имя администратора кластера»;
ПарольКластера = «Пароль администратора кластера»;
Агент.Authenticate(Кластер, АдминистраторКластера, ПарольКластера);
Процессы = Агент.GetWorkingProcesses(Кластер);
Для каждого Процесс из Процессы Цикл
Порт = Процесс.MainPort;
// теперь есть адрес и порт для подключения к рабочему процессу
РабПроц = Коннектор.ConnectWorkingProcess(Имяервера + «:» + СтрЗаменить(Порт, Символы.НПП, «»));
РабПроц.AddAuthentication(«Имя администратора БД», «Пароль администратора БД»);

ИнформационнаяБаза = «»;

Каталог решений - Программное отключение сеансов 1С 8.2.