Регламент для обновления базы данных

Обработка загружается в дополнительные внешние обработки.

Далее нужно настроить расписание.

Принцип работы:

После выполнения обмена, при выполнении регламентного задания проверяется необходимость выполнения обновления.

Если нужно обновить - тогда всех выкинет из БД и запланирует задание на обновление конфигурации. Если обновление прошло удачно, тогда отключит выполнение задания.

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

Функция ЗавершитьСеансы()
	Результат = Истина;
	
	Блокировка = Новый БлокировкаСеансов;
	Блокировка.Установлена = Истина;
	Блокировка.Начало = ТекущаяДатаСеанса();
	Блокировка.КодРазрешения = "КодРазрешения";
	Блокировка.Сообщение = "Выполняется обновление. Сохраните данные и закройте 1С";
	УстановитьБлокировкуСеансов(Блокировка);
	
	Возврат Результат;
	
КонецФункции

Процедура ОбновлениеБД()
	//Пропишем пароль пользователя
	ПарольАдмина = Константы.Сударь_Администратор.Получить();
	Результат = "";
	
	Админ = Справочники.Пользователи.НайтиПоНаименованию("Администратор");
	Если ЗначениеЗаполнено(Админ.ИдентификаторПользователяИБ) Тогда
		ЗначХран = ПользователиИнформационнойБазы.НайтиПоУникальномуИдентификатору(Админ.ИдентификаторПользователяИБ);
		ЗначХран.Пароль	= ПарольАдмина;
		Попытка
			ЗначХран.Записать();
		Исключение
			Результат = "Не удалось записать пользователя.";
		Конецпопытки;
		
	КонецЕсли;
	
	//Запишем батник для обновления
	Если Результат = "" Тогда
		СтрокаСоединения = СтрокаСоединенияИнформационнойБазы();
		Если лев(СтрокаСоединения,4) = "Srvr" Тогда  
			Сервак = Лев(СтрокаСоединения,Найти(СтрокаСоединения,";Ref="));
			НачалоИБ = Найти(СтрокаСоединения,";Ref=")+5;
			НужноВзять = СтрДлина(СтрокаСоединения)- НачалоИБ;
			База   = Прав(СтрокаСоединения,НужноВзять);
			Сервак = СтрЗаменить(Сервак, "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:\run1С.bat";
		Ф = Новый ТекстовыйДокумент();
		Ф.УстановитьТекст(КоманднаяСтрокаОбновления);
		Ф.Записать(ИмяФайлаСкрипта, КодировкаТекста.OEM);
		Результат = "Выполнено";
	КонецЕсли;
	
	//Запишем схему для создания задания
	Если Результат = "Выполнено" Тогда
		WSH = Новый COMobject("wscript.network");
		ИмяКомпьютера = WSH.ComputerName;
		ИмяПользователя = WSH.UserName;
		
		ТекстХМЛ = "<?xml version=""1.0"" encoding=""UTF-16""?>
		|<Task version=""1.2"" xmlns=""http://schemas.microsoft.com/windows/2004/02/mit/task"">
		|  <RegistrationInfo>
		|    <Date>2017-04-05T16:11:32.542172</Date>
		|    <Author>"+ИмяКомпьютера+"\"+ИмяПользователя+"</Author>
		|    <Description>Запускаем обновление и затем пускаем пользователей и выполняем синхронизацию с центром</Description>
		|  </RegistrationInfo>
		|  <Triggers>
		|    <CalendarTrigger>
		|      <Repetition>
		|        <Interval>PT5M</Interval>
		|        <Duration>P1D</Duration>
		|        <StopAtDurationEnd>false</StopAtDurationEnd>
		|      </Repetition>
		|      <StartBoundary>2017-04-06T08:00:00</StartBoundary>
		|      <Enabled>true</Enabled>
		|      <ScheduleByDay>
		|        <DaysInterval>1</DaysInterval>
		|      </ScheduleByDay>
		|    </CalendarTrigger>
		|    <RegistrationTrigger>
		|      <Enabled>true</Enabled>
		|      <Delay>PT30S</Delay>
		|    </RegistrationTrigger>
		|  </Triggers>
		|  <Principals>
		|    <Principal id=""Author"">
		|      <UserId>"+ИмяКомпьютера+"\"+ИмяПользователя+"</UserId>
		|      <LogonType>InteractiveToken</LogonType>
		|      <RunLevel>HighestAvailable</RunLevel>
		|    </Principal>
		|  </Principals>
		|  <Settings>
		|    <MultipleInstancesPolicy>IgnoreNew</MultipleInstancesPolicy>
		|    <DisallowStartIfOnBatteries>true</DisallowStartIfOnBatteries>
		|    <StopIfGoingOnBatteries>true</StopIfGoingOnBatteries>
		|    <AllowHardTerminate>true</AllowHardTerminate>
		|    <StartWhenAvailable>true</StartWhenAvailable>
		|    <RunOnlyIfNetworkAvailable>false</RunOnlyIfNetworkAvailable>
		|    <IdleSettings>
		|      <StopOnIdleEnd>true</StopOnIdleEnd>
		|      <RestartOnIdle>false</RestartOnIdle>
		|    </IdleSettings>
		|    <AllowStartOnDemand>true</AllowStartOnDemand>
		|    <Enabled>true</Enabled>
		|    <Hidden>false</Hidden>
		|    <RunOnlyIfIdle>false</RunOnlyIfIdle>
		|    <WakeToRun>false</WakeToRun>
		|    <ExecutionTimeLimit>PT4H</ExecutionTimeLimit>
		|    <Priority>7</Priority>
		|    <RestartOnFailure>
		|      <Interval>PT1M</Interval>
		|      <Count>3</Count>
		|    </RestartOnFailure>
		|  </Settings>
		|  <Actions Context=""Author"">
		|    <Exec>
		|      <Command>C:\run1С.bat</Command>
		|    </Exec>
		|  </Actions>
		|</Task>";
		
		ИмяФайлаСкрипта = "C:\Run1C_Task.xml";
		Ф = Новый ТекстовыйДокумент();
		Ф.УстановитьТекст(ТекстХМЛ);
		Ф.Записать(ИмяФайлаСкрипта, КодировкаТекста.UTF16);
		Результат = "Записано";
	КонецЕсли;
	
	Если Результат = "Записано" Тогда
		ТекстБатника  ="
		|@echo off
		|Rem action - установка значение disable или enable 
		|set task_action=enable 
		|REM Проверка наличия прав администратора
		|REM @WHOAMI /PRIV | find /i ""SeRemoteShutdownPrivilege"" > nul
		|REM if %ERRORLEVEL% == 0 goto admin
		|REM echo Execution aborted. Run this batch file AS Administrator  !!!
		|REM pause
		|REM exit
		|REM :admin
		|REM @echo try %task_action% scheduled tasks ...  
		|schtasks /Create /XML c:\Run1C_Task.xml /TN ""Run1C_Task""
		|schtasks /change /tn ""\Run1C_Task"" /%task_action% >> %~dn0.log";
		
		ИмяФайлаСкрипта = "C:\schtasks.bat";
		Ф = Новый ТекстовыйДокумент();
		Ф.УстановитьТекст(ТекстБатника);
		Ф.Записать(ИмяФайлаСкрипта, КодировкаТекста.OEM);
		Результат = "Можно запускать";
	КонецЕсли;
	
	Если Результат = "Можно запускать" Тогда
		Попытка
			ЗапуститьПриложение(ИмяФайлаСкрипта,,ложь);      
		Исключение
		КонецПопытки;
	КонецЕсли;
	
КонецПроцедуры


Процедура ОтключитьПланировщик()
	ТекстБатника  ="
	|@echo off
	|Rem action - установка значение disable или enable 
	|set task_action=disable 
	|REM Проверка наличия прав администратора
	|REM @WHOAMI /PRIV | find /i ""SeRemoteShutdownPrivilege"" > nul
	|REM if %ERRORLEVEL% == 0 goto admin
	|REM echo Execution aborted. Run this batch file AS Administrator  !!!
	|REM pause
	|REM exit
	|REM :admin
	|REM @echo try %task_action% scheduled tasks ...  
	|schtasks /Create /XML c:\Run1C_Task.xml /TN ""Run1C_Task""
	|schtasks /change /tn ""\Run1C_Task"" /%task_action% >> %~dn0.log";
	
	ИмяФайлаСкрипта = "C:\schtasks.bat";
	Ф = Новый ТекстовыйДокумент();
	Ф.УстановитьТекст(ТекстБатника);
	Ф.Записать(ИмяФайлаСкрипта, КодировкаТекста.OEM);
	Попытка
		ЗапуститьПриложение(ИмяФайлаСкрипта,,ложь);      
	Исключение
	КонецПопытки;
	
КонецПроцедуры