Установка/снятие блокировки регламентных заданий (клиент-серверный вариант)

Набросал для себя, потом подумал, что кому-то вдруг окажется интересно программно запрещать или разрешать фоновые процессы, которые стартуют по регламентному расписанию. Целью была доработка типовой обработки БлокировкаСоединенийСИнформационнойБазой, я "выгонял" из базы пользователей, но фоновые задачи нужно было иногда прекращать сразу, а каждый раз запускать оснастку администрирования — лень.

В общем, основная процедура из модуля обработки в тексте.

// Функция - Получить структуру соединения информационной базы
//
// Параметры:
//  СтрокаСоединения - Строка - Строка соединения с информационной базой в формате "<Имя параметра>=<Значение параметра>;". При пустом значении используется текущая строка соединения
//
// Возвращаемое значение:
// Структура - Ключ - <Имя параметра>, значение - <Значение параметра>
//
Функция ПолучитьСтруктуруСоединенияИнформационнойБазы(Знач СтрокаСоединения = Неопределено) Экспорт
Если СтрокаСоединения = Неопределено тогда
СтрокаСоединения = СтрокаСоединенияИнформационнойБазы();
КонецЕсли;

Результат = Новый Структура;

МассивПараметров = СтрРазделить(СтрокаСоединения, ";", Ложь);
Для Каждого ПараметрМассива Из МассивПараметров Цикл
Поз = СтрНайти(ПараметрМассива, "=");
Ключ = ТРег(СокрЛП(Лев(ПараметрМассива,Поз-1)));
Значение = СокрЛП(Сред(ПараметрМассива, Поз+1));
Если Лев(Значение,1) = """" И Прав(Значение,1) = """" тогда
Значение = Сред(Значение, 2, СтрДлина(Значение)-2);
КонецЕсли;
Попытка
Результат.Вставить(Ключ, Значение);
Исключение
КонецПопытки;
КонецЦикла;

Возврат Результат;
КонецФункции

// Функция - Блокировка регламентных заданий в текущей информационной базе
//
// Параметры:
//  УстановитьБлокировку - Булево - Если задан, то производится попытка изменить состояние блокировки регламентных заданий
//
// Возвращаемое значение:
// Булево - состояние блокировки после установки нового состояния.
// Неопределено - в случае, если невозможно изменить состояние блокировки регламетных заданий
//
Функция БлокировкаРегламентныхЗаданий(УстановитьБлокировку = Неопределено) Экспорт
АдминистраторИБ = Новый Структура("Имя, Пароль", "username", "password");

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

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

МассивКластеров = СоединениеСАгентомСервера.GetClusters();
КластерТекущий = Неопределено;
Для Каждого Кластер Из МассивКластеров Цикл
Если Нрег(Кластер.HostName) = Нрег(СтруктураСоединения.Srvr) тогда
КластерТекущий = Кластер;
Прервать;
КонецЕсли;
КонецЦикла;
Если КластерТекущий = Неопределено тогда
Возврат Неопределено;
КонецЕсли;
СоединениеСАгентомСервера.Authenticate(КластерТекущий, "", "");

МассивРабочихПроцессов = СоединениеСАгентомСервера.GetWorkingProcesses(КластерТекущий);
ИнформационнаяБазаТекущая = Неопределено;
Для Каждого РабочийПроцесс Из МассивРабочихПроцессов Цикл
СоединениеСРабочимПроцессом = COMСоединитель.ConnectWorkingProcess("tcp://"+РабочийПроцесс.HostName+":"+Формат(РабочийПроцесс.MainPort,"ЧГ=0"));
СоединениеСРабочимПроцессом.AddAuthentication(АдминистраторИБ.Имя, АдминистраторИБ.Пароль);
МассивИнформационныхБаз = СоединениеСРабочимПроцессом.GetInfoBases();
Для Каждого ИнформационнаяБаза Из МассивИнформационныхБаз Цикл
Если Нрег(ИнформационнаяБаза.Name) = Нрег(СтруктураСоединения.Ref) тогда
ИнформационнаяБазаТекущая = ИнформационнаяБаза;
Прервать;
КонецЕсли;
КонецЦикла;
Если НЕ ИнформационнаяБазаТекущая = Неопределено тогда
Прервать;
КонецЕсли;
КонецЦикла;
Если ИнформационнаяБазаТекущая = Неопределено тогда
Возврат Неопределено;
КонецЕсли;

Результат = Неопределено;
Если ТипЗнч(УстановитьБлокировку) = Тип("Булево") тогда
Попытка
ИнформационнаяБазаТекущая.ScheduledJobsDenied = УстановитьБлокировку;
СоединениеСРабочимПроцессом.UpdateInfoBase(ИнформационнаяБазаТекущая);
Результат = ИнформационнаяБазаТекущая.ScheduledJobsDenied;
Исключение
КонецПопытки;
Иначе
Результат = ИнформационнаяБазаТекущая.ScheduledJobsDenied;
КонецЕсли;

Возврат Результат;
КонецФункции