Как автоматизировать закрытие сеансов в 1С:Предприятие 8.3 на SQL?

В этой теме 1 ответ, 2 участника, последнее обновление 6 часов, 14 минут назад сделано Odin — Одинэсник.

Просмотр 1 ветки ответов

Автор

Сообщения

6 мая 2026 в 10:00 #36980
Odineski
Участник
1С83 БД sql. Как автоматизировать
закрытие сеансов пользователей

6 мая 2026 в 10:00 #36981

Участник

Автоматизировать закрытие сеансов пользователей в 1С:Предприятие 8.3 с базой на SQL-сервере можно несколькими способами. Самый гибкий и рекомендуемый — использовать COM-объект v8.COMConnector для программного завершения сеансов через агент сервера 1С. Также можно применять стандартную обработку блокировки пользователей, скрипты остановки/запуска сервера или программное завершение работы пользователей из 1С.

Кратко по методам:

1. Через COM-объект агента сервера можно получить список сеансов и завершить все, кроме системных и текущего пользователя. Этот способ подходит для автоматизации и запуска по расписанию.

2. Стандартная обработка «Блокировка работы пользователей» позволяет без программирования заблокировать базу для новых сеансов и завершить текущие.

3. Скрипты Windows для остановки и запуска сервера 1С полностью отключают все базы, что не всегда удобно.

4. В 1С можно написать процедуру, которая по времени завершает работу пользователей, вызывая ПрекратитьРаботуСистемы.

СИНХРОН-КОД: в вопросе упомянуто «закрытие сеансов пользователей», а в финальном коде используется именно COM-объект v8.COMConnector и процедуры для завершения сеансов, а также скрипты остановки сервера и программное завершение работы пользователей.

Ниже приведены примеры и шаблоны кода для каждого из описанных способов.

Процедура ЗавершитьСеансыПользователей()
    СтрокаСоединения = СтрокаСоединенияИнформационнойБазы();
    Параметры = ПолучитьПараметрыСервераИзСтрокиСоединения(СтрокаСоединения);
    Если Параметры.ИмяСервера = "" Тогда
        Возврат;
    КонецЕсли;
    Если ТипПлатформы() = ТипПлатформы.ОперационнаяСистемаUnix Тогда
        Возврат;
    КонецЕсли;
    Агент = ПолучитьАгентКластера(Параметры.ИмяСервера);
    Если Агент = Неопределено Тогда
        Возврат;
    КонецЕсли;
    ЗавершитьСеансыПоАгенту(Агент, Параметры.ИмяБазы);
КонецПроцедуры

Функция ПолучитьПараметрыСервераИзСтрокиСоединения(СтрокаСоединения)
    ИмяПараметраСервера = "Srvr=";
    ИмяПараметраБазы = "Ref=";
    СтруктураРезультат = Новый Структура("ИмяСервера, ИмяБазы", "", "");
    Позиция = СтрНайти(СтрокаСоединения, ИмяПараметраСервера);
    Если Позиция = 0 Тогда
        Возврат СтруктураРезультат;
    КонецЕсли;
    Позиция = Позиция + СтрДлина(ИмяПараметраСервера);
    Остаток = Сред(СтрокаСоединения, Позиция);
    Знак = СтрНайти(Остаток, """");
    Если Знак = 0 Тогда
        Возврат СтруктураРезультат;
    КонецЕсли;
    СтруктураРезультат.ИмяСервера = Лев(Остаток, Знак - 1);
    Позиция = СтрНайти(СтрокаСоединения, ИмяПараметраБазы);
    Если Позиция = 0 Тогда
        Возврат СтруктураРезультат;
    КонецЕсли;
    Позиция = Позиция + СтрДлина(ИмяПараметраБазы);
    Остаток = Сред(СтрокаСоединения, Позиция);
    Знак = СтрНайти(Остаток, """");
    Если Знак = 0 Тогда
        Возврат СтруктураРезультат;
    КонецЕсли;
    СтруктураРезультат.ИмяБазы = Лев(Остаток, Знак - 1);
    Возврат СтруктураРезультат;
КонецФункции

Функция ПолучитьАгентКластера(ИмяСервера)
    Возврат Новый COMОбъект("v8.COMConnector").ConnectAgent(ИмяСервера);
КонецФункции

Процедура ЗавершитьСеансыПоАгенту(Агент, ИмяБазы)
    Кластеры = Агент.GetClusters();
    Для Каждого Кластер Из Кластеры Цикл
        Агент.Authenticate(Кластер, "АдминистраторКластера", "ПарольКластера");
        ИнформационнаяБаза = НайтиИнформационнуюБазу(Агент, Кластер, ИмяБазы);
        Если ИнформационнаяБаза = Неопределено Тогда
            Продолжить;
        КонецЕсли;
        ЗавершитьСеансыБазы(Агент, Кластер, ИнформационнаяБаза);
        Прервать;
    КонецЦикла;
КонецПроцедуры

Функция НайтиИнформационнуюБазу(Агент, Кластер, ИмяБазы)
    Базы = Агент.GetInfoBases(Кластер);
    Для Каждого База Из Базы Цикл
        Если База.Name = ИмяБазы Тогда
            Возврат База;
        КонецЕсли;
    КонецЦикла;
    Возврат Неопределено;
КонецФункции

Процедура ЗавершитьСеансыБазы(Агент, Кластер, ИнформационнаяБаза)
    Сеансы = Агент.GetInfoBaseSessions(Кластер, ИнформационнаяБаза);
    Для Каждого Сеанс Из Сеансы Цикл
        Если Сеанс.AppID = "designer" Или Сеанс.AppID = "backgroundjob" Тогда
            Продолжить;
        КонецЕсли;
        Если Сеанс.UserName = ИмяПользователя() Тогда
            Продолжить;
        КонецЕсли;
        Агент.TerminateSession(Кластер, Сеанс);
    КонецЦикла;
КонецПроцедуры

Процедура ЗавершитьСеансыПользователей()

СтрокаСоединения = СтрокаСоединенияИнформационнойБазы();

Параметры = ПолучитьПараметрыСервераИзСтрокиСоединения(СтрокаСоединения);

Если Параметры.ИмяСервера = "" Тогда

Возврат;

КонецЕсли;

Если ТипПлатформы() = ТипПлатформы.ОперационнаяСистемаUnix Тогда

Возврат;

КонецЕсли;

Агент = ПолучитьАгентКластера(Параметры.ИмяСервера);

Если Агент = Неопределено Тогда

Возврат;

КонецЕсли;

ЗавершитьСеансыПоАгенту(Агент, Параметры.ИмяБазы);

КонецПроцедуры

Функция ПолучитьПараметрыСервераИзСтрокиСоединения(СтрокаСоединения)

ИмяПараметраСервера = "Srvr=";

ИмяПараметраБазы = "Ref=";

СтруктураРезультат = Новый Структура("ИмяСервера, ИмяБазы", "", "");

Позиция = СтрНайти(СтрокаСоединения, ИмяПараметраСервера);

Если Позиция = 0 Тогда

Возврат СтруктураРезультат;

КонецЕсли;

Позиция = Позиция + СтрДлина(ИмяПараметраСервера);

Остаток = Сред(СтрокаСоединения, Позиция);

Знак = СтрНайти(Остаток, """");

Если Знак = 0 Тогда

Возврат СтруктураРезультат;

КонецЕсли;

СтруктураРезультат.ИмяСервера = Лев(Остаток, Знак - 1);

Позиция = СтрНайти(СтрокаСоединения, ИмяПараметраБазы);

Если Позиция = 0 Тогда

Возврат СтруктураРезультат;

КонецЕсли;

Позиция = Позиция + СтрДлина(ИмяПараметраБазы);

Остаток = Сред(СтрокаСоединения, Позиция);

Знак = СтрНайти(Остаток, """");

Если Знак = 0 Тогда

Возврат СтруктураРезультат;

КонецЕсли;

СтруктураРезультат.ИмяБазы = Лев(Остаток, Знак - 1);

Возврат СтруктураРезультат;

КонецФункции

Функция ПолучитьАгентКластера(ИмяСервера)

Возврат Новый COMОбъект("v8.COMConnector").ConnectAgent(ИмяСервера);

КонецФункции

Процедура ЗавершитьСеансыПоАгенту(Агент, ИмяБазы)

Кластеры = Агент.GetClusters();

Для Каждого Кластер Из Кластеры Цикл

Агент.Authenticate(Кластер, "АдминистраторКластера", "ПарольКластера");

ИнформационнаяБаза = НайтиИнформационнуюБазу(Агент, Кластер, ИмяБазы);

Если ИнформационнаяБаза = Неопределено Тогда

Продолжить;

КонецЕсли;

ЗавершитьСеансыБазы(Агент, Кластер, ИнформационнаяБаза);

Прервать;

КонецЦикла;

КонецПроцедуры

Функция НайтиИнформационнуюБазу(Агент, Кластер, ИмяБазы)

Базы = Агент.GetInfoBases(Кластер);

Для Каждого База Из Базы Цикл

Если База.Name = ИмяБазы Тогда

Возврат База;

КонецЕсли;

КонецЦикла;

Возврат Неопределено;

КонецФункции

Процедура ЗавершитьСеансыБазы(Агент, Кластер, ИнформационнаяБаза)

Сеансы = Агент.GetInfoBaseSessions(Кластер, ИнформационнаяБаза);

Для Каждого Сеанс Из Сеансы Цикл

Если Сеанс.AppID = "designer" Или Сеанс.AppID = "backgroundjob" Тогда

Продолжить;

КонецЕсли;

Если Сеанс.UserName = ИмяПользователя() Тогда

Продолжить;

КонецЕсли;

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

КонецЦикла;

КонецПроцедуры

net stop "1C:Enterprise 8.3 Server Agent"

1	net stop "1C:Enterprise 8.3 Server Agent"

net start "1C:Enterprise 8.3 Server Agent"

1	net start "1C:Enterprise 8.3 Server Agent"

Процедура ЗавершитьРаботуПользователей()
    ТекущийЧасДляЗавершения = 22;
    Если Час(ТекущаяДатаСеанса()) >= ТекущийЧасДляЗавершения Тогда
        ПрекратитьРаботуСистемы(Ложь);
    КонецЕсли;
КонецПроцедуры

Процедура ЗавершитьРаботуПользователей()

ТекущийЧасДляЗавершения = 22;

Если Час(ТекущаяДатаСеанса()) >= ТекущийЧасДляЗавершения Тогда

ПрекратитьРаботуСистемы(Ложь);

КонецЕсли;

КонецПроцедуры

Автор

Сообщения

Просмотр 1 ветки ответов

Для ответа в этой теме необходимо авторизоваться.

Вы пропустили

Новый курс «Администратор 1С v4.1»

Автономный сервер 1С — публикация ИБ

Установка PostgreSQL 17 для 1С на Windows server 2022

Как запустить «Сервер 1С» на Ubuntu 24.04 LTS ?