Удаленное администрирование распределенной базы

Дополнительное ПО устанавливать не нужно, работает как на файловом, так и клиент-серверном варианте. Код полностью открыт.

Работает на управляемых формах.

Проверено на Рознице 2.1, но возможна адаптация для любой конфигурации, имеющей типовой механизм подключения внешних обработок и планы обмена (например, УТ, Комплексная).

В центральном узле добавляем сценарий в соответствующий справочник. Ставим метки в каких узлах нужно выполнить задание.

В магазине работает регламентное задание, которое проверяет наличие не выполненных заданий и выполняет их по мере необходимости. По одному за каждый запуск, в порядке очередности установленной в справочнике.

Результат выполнения записывается в регистр сведений. После обмена можно в центральной базе посмотреть: выполнилось ли задание, наличие ошибки выполнения. Если есть необходимость — то через результат выполнения можно передать с узла в центр данные.

Задание выполняется один раз на каждом узле.

Примеры сценариев:

1  Создать копию рабочего места

 МассивФайлов = НайтиФайлы("C:Users","1cv8u.pfl",Истина);
Результат = "Всего фалов настройки "+МассивФайлов.Количество();
Если МассивФайлов.Количество()>0 тогда
Для Каждого НайденФайл Из МассивФайлов Цикл
СтарыйФайл = СтрЗаменить(НайденФайл.ПолноеИмя,"1cv8u.pfl","_1cv8u.pfl");
КопироватьФайл(НайденФайл.ПолноеИмя, СтарыйФайл);
КонецЦикла;
Иначе
Результат = "Нет файлов настройки";
КонецЕсли;    

2 Создание файла run1C и смена пароля админа

ПарольАдмина = "123";
Результат = "";

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

КонецЕсли;

Если Результат = "" Тогда
СтрокаСоединения = СтрокаСоединенияИнформационнойБазы();//File="C:1cv8Base".
Если лев(СтрокаСоединения,4) = "Srvr" Тогда  //Srvr="obmensrv";Ref="testpirozhkov";
Сервак = Лев(СтрокаСоединения,Найти(СтрокаСоединения,";Ref="));
База   = Прав(СтрокаСоединения,Найти(СтрокаСоединения,";Ref="));
Сервак = СтрЗаменить(Сервак, "Srvr=", "");
Сервак = СтрЗаменить(Сервак, ";", "");
База = СтрЗаменить(База, ";", "");
СтрокаСоединения = Сервак+""+База;
СтрокаСоединения = СтрЗаменить(СтрокаСоединения, """", "");
КаталогПрограммы = КаталогПрограммы();
ИмяФайлаПрограммы = КаталогПрограммы + "1cv8.exe";

КоманднаяСтрокаОбновления = "echo off
|cls
|"""+ИмяФайлаПрограммы+""" CONFIG /S"""+СтрокаСоединения+""" /N""Администратор"" /P"""+ПарольАдмина+""" /DisableStartupMessages /UpdateDBCfg /UC""КодРазрешения""
|"""+ИмяФайлаПрограммы+""" ENTERPRISE /S"""+СтрокаСоединения+""" /N""Администратор"" /P"""+ПарольАдмина+""" /DisableStartupMessages /C""РазрешитьРаботуПользователей"" /UC""КодРазрешения""";
Иначе

СтрокаСоединения = СтрЗаменить(СтрокаСоединения, "File=", "");
СтрокаСоединения = СтрЗаменить(СтрокаСоединения, ";", "");
КаталогПрограммы = КаталогПрограммы();
ИмяФайлаПрограммы = КаталогПрограммы + "1cv8.exe";

КоманднаяСтрокаОбновления = "echo off
|cls
|"""+ИмяФайлаПрограммы+""" CONFIG /F"+СтрокаСоединения+" /N""Администратор"" /P"""+ПарольАдмина+""" /DisableStartupMessages /UpdateDBCfg /UC""КодРазрешения""
|"""+ИмяФайлаПрограммы+""" ENTERPRISE /F"+СтрокаСоединения+" /N""Администратор"" /P"""+ПарольАдмина+""" /DisableStartupMessages /C""РазрешитьРаботуПользователей"" /UC""КодРазрешения""";
КонецЕсли;

ИмяФайлаСкрипта = "C:
un1С.bat";
Ф = Новый ТекстовыйДокумент();
Ф.УстановитьТекст(КоманднаяСтрокаОбновления);
Ф.Записать(ИмяФайлаСкрипта, КодировкаТекста.OEM);
Результат = "Выполнено";
КонецЕсли;

3 Настройка регламента «ВыполнениеПроизвольногоСценария»

//ВключитьРегламент("ВыполнениеПроизвольногоСценария");
ИмяРег = "ВыполнениеПроизвольногоСценария";
//запуск в магазинах регламента
//Процедура ВключитьРегламент(ИмяРег)
УстановитьПривилегированныйРежим(Истина);
Отб = Новый Структура;
ИмяРЗ = "Дополнительная обработка: "+ИмяРег+" / Команда: "+ИмяРег;
Отб.Вставить("Наименование", ИмяРЗ);
Задания = РегламентныеЗадания.ПолучитьРегламентныеЗадания(Отб);
Если Задания.Количество()>0 тогда
Задание = Задания[0];
Иначе
Задание = РегламентныеЗадания.СоздатьРегламентноеЗадание("ЗапускДополнительныхОбработок");
КонецЕсли;
Задание.Использование = Истина;
Задание.Наименование =   ИмяРЗ;
Расписание = Новый РасписаниеРегламентногоЗадания;
Расписание.ПериодНедель = 1;
МД = Новый Массив();
МД.Добавить(1);
МД.Добавить(2);
МД.Добавить(3);
МД.Добавить(4);
МД.Добавить(5);
МД.Добавить(6);
МД.Добавить(7);
Расписание.ДниНедели = МД;
Расписание.ДатаНачала = ТекущаяДата();
Расписание.ПериодПовтораВТечениеДня = 1800;
Расписание.ПериодПовтораДней = 1;
Задание.Расписание = Расписание;
ПарЗад = Новый Массив;
ПарЗад.Добавить(Справочники.ДополнительныеОтчетыИОбработки.НайтиПоНаименованию(ИмяРег));
ПарЗад.Добавить(ИмяРег);
Задание.Параметры = ПарЗад;
Задание.Записать();
//КонецПроцедуры
Результат = "Выполнено без ошибок";

4 Настройка регламента «ОбновлениеКонфигурации»   

 //ВключитьРегламент("ОбновлениеКонфигурации");
ИмяРег = "ОбновлениеКонфигурации";
//запуск в магазинах регламента
//Процедура ВключитьРегламент(ИмяРег)
УстановитьПривилегированныйРежим(Истина);
Отб = Новый Структура;
ИмяРЗ = "Дополнительная обработка: "+ИмяРег+" / Команда: "+ИмяРег;
Отб.Вставить("Наименование", ИмяРЗ);
Задания = РегламентныеЗадания.ПолучитьРегламентныеЗадания(Отб);
Если Задания.Количество()>0 тогда
Задание = Задания[0];
Иначе
Задание = РегламентныеЗадания.СоздатьРегламентноеЗадание("ЗапускДополнительныхОбработок");
КонецЕсли;
Задание.Использование = Истина;
Задание.Наименование =   ИмяРЗ;
Расписание = Новый РасписаниеРегламентногоЗадания;
Расписание.ПериодНедель = 1;
МД = Новый Массив();
МД.Добавить(1);
МД.Добавить(2);
МД.Добавить(3);
МД.Добавить(4);
МД.Добавить(5);
МД.Добавить(6);
МД.Добавить(7);
Расписание.ДниНедели = МД;
Расписание.ДатаНачала = ТекущаяДата();
Расписание.ПериодПовтораВТечениеДня = 300;
Расписание.ПериодПовтораДней = 1;
Задание.Расписание = Расписание;

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


ПарЗад = Новый Массив;
ПарЗад.Добавить(Справочники.ДополнительныеОтчетыИОбработки.НайтиПоНаименованию(ИмяРег));
ПарЗад.Добавить(ИмяРег);
Задание.Параметры = ПарЗад;
Задание.Записать();
//КонецПроцедуры
Результат = "Выполнено без ошибок";

5 Настройка регламента «Синхронизация с центром»

Сценарий = Справочники.СценарииОбменовДанными.НайтиПоКоду("00001");
Если ЗначениеЗаполнено(Сценарий) Тогда
УстановитьПривилегированныйРежим(Истина);
Отб = Новый Структура;
ИмяРЗ = "Выполнение обмена по сценарию: Сценарий синхронизации для Центр";
Отб.Вставить("Наименование", ИмяРЗ);
Задания = РегламентныеЗадания.ПолучитьРегламентныеЗадания(Отб);
Если Задания.Количество()>0 тогда
Задание = Задания[0];
Иначе
Задание = РегламентныеЗадания.СоздатьРегламентноеЗадание("СинхронизацияДанных");
Задание.Наименование = "Выполнение обмена по сценарию: Сценарий синхронизации для Центр";
КонецЕсли;
Задание.Использование = Истина;
Расписание = Новый РасписаниеРегламентногоЗадания;
Расписание.ПериодНедель = 1;
//ТекущийОбъект.НастройкиОбмена
//ТекущийОбъект
МД = Новый Массив();
МД.Добавить(1);
МД.Добавить(2);
МД.Добавить(3);
МД.Добавить(4);
МД.Добавить(5);
МД.Добавить(6);
МД.Добавить(7);
Расписание.ДниНедели = МД;
//Расписание.ДатаНачала = ТекущаяДата();
Расписание.ПериодПовтораВТечениеДня = 2400;
Расписание.ПериодПовтораДней = 1;
Расписание.ДатаНачала = НачалоДня(ТекущаяДата());
Задание.Расписание = Расписание;
Задание.ИмяПользователя = "Администратор";

ПараметрыРегламентногоЗадания = Новый Массив;
ПараметрыРегламентногоЗадания.Добавить(Сценарий.Код);
Задание.Параметры = ПараметрыРегламентногоЗадания;
Задание.Записать();
СценарийОбъект = Сценарий.ПолучитьОбъект();
СценарийОбъект.РегламентноеЗаданиеGUID = Задание.УникальныйИдентификатор;
СценарийОбъект.Записать();
Результат = "Выполнено без ошибок";
Иначе
Результат = "Не обнаружен сценарий обмена данными с центром";
КонецЕсли;