Автоматический бэкап средствами 1С, который обязательно сделается (без перезапуска сервера).

one1CPath = """C:\Program Files (x86)\1cv8\8.3.7.2027\bin\1cv8.exe"""

ПутьКИсполняемомуФайлу = "";
    РеестрОС = ПолучитьCOMОбъект("winmgmts:{impersonationLevel=impersonate}!\\" + ИмяСервера + "\root\default:StdRegProv");
    Если Не ЗначениеЗаполнено(ВерсияПлатформы) Тогда
        СистемнаяИнформация = Новый СистемнаяИнформация;
        ПолнаяВерсияПриложения = СистемнаяИнформация.ВерсияПриложения;
        МассивФрагментов = ОбщийИис.РазбитьСтрокуРазделителемИис(ПолнаяВерсияПриложения);
        ВерсияПлатформы = Справочники.ВерсииПлатформИис["_" + МассивФрагментов[0] + МассивФрагментов[1]];
    КонецЕсли;
    Если ВерсияПлатформы = Справочники.ВерсииПлатформИис._81 Тогда
        КлючCOMСервера = "\Classes\CLSID\{71CF7C7C-964B-49F1-A507-F1618AF0A7ED}\InprocServer32";
    ИначеЕсли ВерсияПлатформы = Справочники.ВерсииПлатформИис._82 Тогда
        КлючCOMСервера = "\Classes\CLSID\{5CD98F13-1050-4b43-84F2-33AD97CFC287}\LocalServer32";
    ИначеЕсли ВерсияПлатформы = Справочники.ВерсииПлатформИис._83 Тогда
        КлючCOMСервера = "\Classes\CLSID\{E92B75E3-2EA1-4FEC-B493-CEF3EC59FCA6}\LocalServer32";
    КонецЕсли;
    ПутьКИсполняемомуФайлу = Null;
    Если ПутьКИсполняемомуФайлу = Null Тогда
        //x86 ОС
        РеестрОС.GetStringValue(, "SOFTWARE" + КлючCOMСервера, "", ПутьКИсполняемомуФайлу);
    КонецЕсли;
    Если ПутьКИсполняемомуФайлу = Null Тогда
        //x64 ОС
        РеестрОС.GetStringValue(, "SOFTWARE\Wow6432Node" + КлючCOMСервера, "", ПутьКИсполняемомуФайлу);
    КонецЕсли;
    Если ПутьКИсполняемомуФайлу = Null Тогда
        ОписаниеОшибки = "Не удалось определить путь к исполняемому файлу клиента на сервере " + ИмяСервера;
        ВызватьИсключение ОписаниеОшибки;
    КонецЕсли;
    Результат = ПутьКИсполняемомуФайлу;

// Поучает путь к клиентскому приложению 1cv8.exe
Функция ПолучитьИмяИсполняемогоФайла()
	
	ПутьКИсполняемомуФайлу = "";
	РеестрОС = ПолучитьCOMОбъект("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv");
	
	СистемнаяИнформация = Новый СистемнаяИнформация;
	ВерсияПлатформы = Лев(СистемнаяИнформация.ВерсияПриложения,3);
	
	Если ВерсияПлатформы = "8.1" Тогда
		КлючCOMСервера = "\Classes\CLSID\{71CF7C7C-964B-49F1-A507-F1618AF0A7ED}\InprocServer32";
	ИначеЕсли ВерсияПлатформы = "8.2" Тогда
		КлючCOMСервера = "\Classes\CLSID\{5CD98F13-1050-4b43-84F2-33AD97CFC287}\LocalServer32";
	ИначеЕсли ВерсияПлатформы = "8.3" Тогда
		КлючCOMСервера = "\Classes\CLSID\{E92B75E3-2EA1-4FEC-B493-CEF3EC59FCA6}\LocalServer32";
	КонецЕсли;
	
	ПутьКИсполняемомуФайлу = Null;
	
	Если ПутьКИсполняемомуФайлу = Null Тогда
		//x86 ОС
		РеестрОС.GetStringValue(, "SOFTWARE" + КлючCOMСервера, "", ПутьКИсполняемомуФайлу);
	КонецЕсли;
	Если ПутьКИсполняемомуФайлу = Null Тогда
		//x64 ОС
		РеестрОС.GetStringValue(, "SOFTWARE\Wow6432Node" + КлючCOMСервера, "", ПутьКИсполняемомуФайлу);
	КонецЕсли;
	Если ПутьКИсполняемомуФайлу = Null Тогда
		ОписаниеОшибки = "Не удалось определить путь к исполняемому файлу клиента на сервере " + ИмяКомпьютера();
		ВызватьИсключение ОписаниеОшибки;
	КонецЕсли;
	Результат = ПутьКИсполняемомуФайлу;
	Возврат Результат;
	
КонецФункции

ИмяИсполняемогоФайла = ПолучитьИмяФайла(КаталогПрограммы(), "1cv8.exe");

ИмяИсполняемогоФайла = ПолучитьИмяИсполняемогоФайла();

// Создание пользователя
//
Функция СоздатьПользователя(Имя, Пароль)
	
	УстановитьИнтерфейс = Истина;
	УстановитьРоль = Истина;
	
	Если Метаданные.Интерфейсы.Количество() = 0 Тогда
		УстановитьИнтерфейс = Ложь;
	ИначеЕсли Метаданные.Интерфейсы.Найти("Общий") <> Неопределено Тогда
		ВыбранныйИнтерфейс = Метаданные.Интерфейсы.Общий;
	Иначе
		ВыбранныйИнтерфейс = Метаданные.Интерфейсы[0];
	КонецЕсли;
	
	// Проверка на ограничения шаблона
	НайденнаяРоль = Неопределено;
	Если Метаданные.Роли.Количество() = 0 Тогда
		УстановитьРоль = Ложь;
	ИначеЕсли НЕ (Метаданные.Роли.Найти("АдминистраторСистемы") = Неопределено) Тогда
		НайденнаяРоль = Метаданные.Роли.Найти("АдминистраторСистемы");
	ИначеЕсли НЕ (Метаданные.Роли.Найти("ПолныеПрава") = Неопределено) Тогда
		НайденнаяРоль = Метаданные.Роли.Найти("ПолныеПрава");
	Иначе
		Сообщить("Нет возможности создать пользователя """ + Имя + """. В конфигурации отсутствует требуемая роль");
		Возврат Ложь;
	КонецЕсли;
	
	Попытка
		ПользовательНайден = Ложь;
		ПользовательИБ = ПользователиИнформационнойБазы.НайтиПоИмени(Имя);
		Если ПользовательИБ = Неопределено Тогда
			ПользовательИБ = ПользователиИнформационнойБазы.СоздатьПользователя();
		Иначе
			ПользовательНайден = Истина;
		КонецЕсли;
		ПользовательИБ.АутентификацияОС 		 = Ложь;
		ПользовательИБ.АутентификацияСтандартная = Истина;
		ПользовательИБ.Имя 					     = Имя;
		ПользовательИБ.ПолноеИмя			     = Имя;
		ПользовательИБ.Пароль 				     = Пароль;
		ПользовательИБ.ЗапрещеноИзменятьПароль   = Истина;
		ПользовательИБ.ПоказыватьВСпискеВыбора   = Ложь;
		Если УстановитьИнтерфейс Тогда
			ПользовательИБ.ОсновнойИнтерфейс	 = ВыбранныйИнтерфейс;
		КонецЕсли;
		Если УстановитьРоль Тогда
			ПользовательИБ.Роли.Очистить();
			ПользовательИБ.Роли.Добавить(НайденнаяРоль);      
			//ПользовательИБ.Роли.Добавить(Метаданные.Роли.ПолныеПрава);      
		КонецЕсли;
		ПользовательИБ.Записать();
		
		Если Метаданные.Справочники.Найти("Пользователи") <> Неопределено Тогда
			ТекущийПользователь = Справочники.Пользователи.НайтиПоНаименованию(Имя);
			Если Не ЗначениеЗаполнено(ТекущийПользователь) Тогда
				ТекущийПользователь = Справочники.Пользователи.СоздатьЭлемент();
				//ТекущийПользователь.Код = Имя;
				ТекущийПользователь.Наименование = Имя;
				ТекущийПользователь.Записать();
			КонецЕсли;
			
			Попытка
				// отключаем вывод панели функций при запуске программы, потому как права полные
				Движение = РегистрыСведений.НастройкиПользователей.СоздатьМенеджерЗаписи();
				Движение.Пользователь = ТекущийПользователь.Ссылка;
				Движение.Настройка 	  = ПланыВидовХарактеристик.НастройкиПользователей.ОткрыватьПриЗапускеПанельФункций;
				Движение.Значение	  = Ложь;
				Движение.Записать();
			Исключение
			КонецПопытки;
			
			Попытка
				// включаем учет по всем организациям, чтобы избежать ошибок при запуске
				Движение = РегистрыСведений.НастройкиПользователей.СоздатьМенеджерЗаписи();
				Движение.Пользователь = ТекущийПользователь.Ссылка;
				Движение.Настройка 	  = ПланыВидовХарактеристик.НастройкиПользователей.УчетПоВсемОрганизациям;
				Движение.Значение	  = Истина;
				Движение.Записать();
			Исключение
			КонецПопытки;
		КонецЕсли;
		
		Если ПользовательНайден Тогда
			Сообщить("Пользователь " + Имя + " найден для выгрузки информационной базы");
		Иначе
			Сообщить("Создан пользователь " + Имя + " для выгрузки информационной базы");
		КонецЕсли;
		
		Возврат Истина;
		
	Исключение
		Сообщить("Не удалось создать пользователя " + Имя + " для выгрузки информационной базы. " + ОписаниеОшибки());
		
		Возврат Ложь;
	КонецПопытки;
	
КонецФункции