&НаСервере
Функция КопированиеВсехНастроек(ПользовательСсылка,ПользовательПриемник)
	
	Пользователь = Обработки.НастройкиПользователей.ИмяПользователяИБ(ПользовательСсылка);
	
	Приемники = Новый Массив;
	ТаблицаПользователей = Новый ТаблицаЗначений;
	ТаблицаПользователей.Колонки.Добавить("Пользователь");
	ТаблицаПользователей = Обработки.НастройкиПользователей.ПользователиДляКопирования(ПользовательСсылка, ТаблицаПользователей, 
	ТипЗнч(ПользовательСсылка) = Тип("СправочникСсылка.ВнешниеПользователи"));
	
	Для Каждого СтрокаТаблицы Из ТаблицаПользователей Цикл
		Приемники.Добавить(ПользовательПриемник);
	КонецЦикла;
	
	КопируемыеНастройки = Новый Массив;
	КопируемыеНастройки.Добавить("НастройкиОтчетов");
	КопируемыеНастройки.Добавить("НастройкиВнешнегоВида");
	КопируемыеНастройки.Добавить("ПерсональныеНастройки");
	КопируемыеНастройки.Добавить("Избранное");
	КопируемыеНастройки.Добавить("НастройкиПечати");
	КопируемыеНастройки.Добавить("ПрочиеПользовательскиеНастройки");
	
	НастройкиСкопированы = Обработки.НастройкиПользователей.
	КопированиеНастроекПользователей(ПользовательСсылка, Приемники, КопируемыеНастройки);
		
	Возврат НастройкиСкопированы;
	
КонецФункции


Функция СоздатьНовыйУровеньДоступа(ФИО)
	
	 Рез = Справочники.CRM_УровниДоступа.НайтиПоНаименованию(ФИО);
	 Если Рез = Неопределено ИЛИ Рез = Справочники.CRM_УровниДоступа.ПустаяСсылка() Тогда
		 НовыйОбъект = Справочники.CRM_УровниДоступа.СоздатьЭлемент();
		 НовыйОбъект.Наименование = ФИО;
		 НовыйОбъект.Записать();
		 возврат НовыйОбъект.Ссылка;
	 КонецЕсли;	 
		 
КонецФункции	


Процедура ОбновитьДанныеПользователяИБ(ПользовательНастроек, Знач ОтображатьИмя = Истина)
	
	Если ПользовательНастроек = Неопределено Тогда
		Возврат;
	КонецЕсли;
	
	ПроверкаНаСуществующегоПользователя = ПользователиИнформационнойБазы.НайтиПоИмени(Объект.ФИОСоздаваемогоПользователя);
	Если ПроверкаНаСуществующегоПользователя = Неопределено Тогда
		
	Пользователь_Шаблон = ПользователиИнформационнойБазы.НайтиПоИмени(сокрлп(ПользовательНастроек.Наименование));


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


		НовыйПользователь = Справочники.Пользователи.СоздатьЭлемент();
		НовыйПользователь.Наименование 					= Объект.ФИОСоздаваемогоПользователя;
		НовыйПользователь.ТекущееПодразделение			= ПользовательНастроек.ТекущееПодразделение;
		НовыйПользователь.CRM_УровеньДоступа			= СоздатьНовыйУровеньДоступа(Объект.ФИОСоздаваемогоПользователя);
		НовыйПользователь.Недействителен				= ложь;


		НовыйПользователь.ДополнительныеСвойства.Вставить(
			"ОписаниеПользователяИБ", ОписаниеПользователяИБ);
			
		НовыйПользователь.Записать();
				
		Запрос = Новый Запрос;
		Запрос.Текст = 
		"ВЫБРАТЬ
		|	ГруппыПользователейПользователиГруппы.Ссылка
		|ИЗ
		|	Справочник.ГруппыПользователей.Состав КАК ГруппыПользователейПользователиГруппы
		|ГДЕ
		|	ГруппыПользователейПользователиГруппы.Пользователь =Пользователь
		|
		|СГРУППИРОВАТЬ ПО
		|	ГруппыПользователейПользователиГруппы.Ссылка";
		
		Запрос.УстановитьПараметр("Пользователь", ПользовательНастроек);
		
		РезультатЗапроса = Запрос.Выполнить();
		
		ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
		
		Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
			объ = ВыборкаДетальныеЗаписи.Ссылка.ПолучитьОбъект();
			НоваяСтрока = объ.Состав.Добавить();
			НоваяСтрока.Пользователь = НовыйПользователь.Ссылка;
			объ.Записать();
		КонецЦикла;
		
		Запрос.Текст = 
		"ВЫБРАТЬ
		|	ГруппыДоступаПользователи.Ссылка
		|ИЗ
		|	Справочник.ГруппыДоступа.Пользователи КАК ГруппыДоступаПользователи
		|ГДЕ
		|	ГруппыДоступаПользователи.Пользователь =Пользователь
		|
		|СГРУППИРОВАТЬ ПО
		|	ГруппыДоступаПользователи.Ссылка";
		
		Запрос.УстановитьПараметр("Пользователь", ПользовательНастроек);
		
		РезультатЗапроса = Запрос.Выполнить();
		
		ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
		
		Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
			объ = ВыборкаДетальныеЗаписи.Ссылка.ПолучитьОбъект();
			НоваяСтрока = объ.Пользователи.Добавить();
			НоваяСтрока.Пользователь = НовыйПользователь.Ссылка;
			объ.Записать();
		КонецЦикла;


		КопированиеВсехНастроек(ПользовательНастроек,НовыйПользователь.Ссылка);
		
	Иначе
		сообщить("Указанное ФИО Пользователя уже используется !!! ");
	КонецЕсли;
		
КонецПроцедуры


&НаКлиенте
Процедура СоздатьПользователя(Команда)
	СоздатьПользователяНаСервере();
КонецПроцедуры


&НаСервере
Процедура СоздатьПользователяНаСервере()
	
	Если НЕ ЗначениеЗаполнено(Объект.ШаблонПользователяДляСозданияНового) Тогда
		Возврат;
	КонецЕсли;


	// настройки устанавливаются на форму
	ОбновитьДанныеПользователяИБ(Объект.ШаблонПользователяДляСозданияНового, Ложь);
	
КонецПроцедуры


&НаСервере
Процедура СкопироватьНастройкиНаСервере(ИзменяемыйПользователь,ШаблонПользователяДляКопирования)
	//Копируем роли пользователя
	тИзменяемыйПользователь = ПользователиИнформационнойБазы.НайтиПоИмени(сокрлп(ИзменяемыйПользователь.Наименование));
	тШаблонПользователяДляКопирования = ПользователиИнформационнойБазы.НайтиПоИмени(сокрлп(ШаблонПользователяДляКопирования.Наименование));
	
	//Очищаем роли
	тИзменяемыйПользователь.Роли.Очистить();
	// Копируем
	СписокДоступныхРолейПользователяИБ = Новый СписокЗначений;  	
	Для Каждого мРоль Из Метаданные.Роли Цикл
		СтрокаСписокаДоступныхРолей = СписокДоступныхРолейПользователяИБ.Добавить();
		СтрокаСписокаДоступныхРолей.Представление = мРоль.Представление();
		СтрокаСписокаДоступныхРолей.Значение = мРоль;
	КонецЦикла; 
	
	Для Каждого СтрокаСпискаДоступныхРолей Из СписокДоступныхРолейПользователяИБ Цикл
		Если тШаблонПользователяДляКопирования.Роли.Содержит(СтрокаСпискаДоступныхРолей.Значение) Тогда
			тИзменяемыйПользователь.Роли.Добавить(СтрокаСпискаДоступныхРолей.Значение);		
		КонецЕсли;	
	КонецЦикла; 
	тИзменяемыйПользователь.Записать();


	//Копируем настройки БСП
	КопированиеВсехНастроек(ШаблонПользователяДляКопирования,ИзменяемыйПользователь);  
КонецПроцедуры


&НаКлиенте
Процедура СкопироватьНастройки(Команда)
	СкопироватьНастройкиНаСервере(Объект.ИзменяемыйПользователь, Объект.ШаблонПользователяДляКопирования);
КонецПроцедуры   

 Процедура КнопкаВыполнитьНажатие(Кнопка)

	Если НЕ ЗначениеЗаполнено(ШаблонПользователяДляСозданияНового) Тогда
		Возврат;
	КонецЕсли;

	// настройки устанавливаются на форму
	ОбновитьДанныеПользователяИБ(ШаблонПользователяДляСозданияНового, Ложь);
	
КонецПроцедуры

Процедура ОбновитьДанныеПользователяИБ(ПользовательНастроек, Знач ОтображатьИмя = Истина)
	
	Если ПользовательНастроек = Неопределено Тогда
		Возврат;
	КонецЕсли;
	
	ПроверкаНаСуществующегоПользователя = ПользователиИнформационнойБазы.НайтиПоИмени(ФИОСоздаваемогоПользователя);
	Если ПроверкаНаСуществующегоПользователя = Неопределено Тогда
		
		Пользователь_Шаблон = ПользователиИнформационнойБазы.НайтиПоИмени(сокрлп(ПользовательНастроек.Код));
		
		ПользовательИБ = ПользователиИнформационнойБазы.СоздатьПользователя();
		ПользовательИБ.Имя = ФИОСоздаваемогоПользователя;
		ПользовательИБ.АутентификацияСтандартная = Истина;
		ПользовательИБ.Пароль = ПарольСоздаваемогоПользователя;
		ПользовательИБ.ПолноеИмя =  ФИОСоздаваемогоПользователя;
		ПользовательИБ.ПоказыватьВСпискеВыбора = Истина;
		ПользовательИБ.ОсновнойИнтерфейс = Пользователь_Шаблон.ОсновнойИнтерфейс;
		ПользовательИБ.Язык = Пользователь_Шаблон.Язык;
		
		
		СписокДоступныхРолейПользователяИБ = Новый СписокЗначений;
		
		Для Каждого мРоль Из Метаданные.Роли Цикл
			СтрокаСписокаДоступныхРолей = СписокДоступныхРолейПользователяИБ.Добавить();
			СтрокаСписокаДоступныхРолей.Представление = мРоль.Представление();
			СтрокаСписокаДоступныхРолей.Значение = мРоль;
		КонецЦикла; 
		
		Для Каждого СтрокаСпискаДоступныхРолей Из СписокДоступныхРолейПользователяИБ Цикл
			Если Пользователь_Шаблон.Роли.Содержит(СтрокаСпискаДоступныхРолей.Значение) Тогда
				ПользовательИБ.Роли.Добавить(СтрокаСпискаДоступныхРолей.Значение);		
			КонецЕсли;	
		КонецЦикла; 
		
		ПользовательИБ.Записать();
		
		НовыйПользователь = Справочники.Пользователи.СоздатьЭлемент();
		//НовыйПользователь.ИдентификаторПользователяИБ 	= ПользовательИБ.УникальныйИдентификатор;
		НовыйПользователь.Код 							= ФИОСоздаваемогоПользователя;
		НовыйПользователь.Наименование 					= ФИОСоздаваемогоПользователя;
		НовыйПользователь.Родитель						= ПользовательНастроек.Родитель;
		
		НовыйПользователь.Подразделение					= ПользовательНастроек.Подразделение;
		НовыйПользователь.Категория						= ПользовательНастроек.Категория;
		НовыйПользователь.Руководитель					= ПользовательНастроек.Руководитель;
		НовыйПользователь.Действует						= ПользовательНастроек.Действует;
		НовыйПользователь.Записать();
		
		
		НаборПользователя = РегистрыСведений.НастройкиПользователей.СоздатьНаборЗаписей();
		НаборПользователя.Отбор.Пользователь.Установить(ПользовательНастроек);
		НаборПользователя.Прочитать();
		
		НаборНовогоПользователя = РегистрыСведений.НастройкиПользователей.СоздатьНаборЗаписей();
		НаборНовогоПользователя.Отбор.Пользователь.Установить(НовыйПользователь.Ссылка);
		
		
		Для Каждого СтрокаНастроек из НаборПользователя Цикл
			НоваяСтрокаНастроек = НаборНовогоПользователя.Добавить();
			ЗаполнитьЗначенияСвойств(НоваяСтрокаНастроек,СтрокаНастроек);
			НоваяСтрокаНастроек.Пользователь = НовыйПользователь.Ссылка;
			Если Найти(СтрокаНастроек.Настройка.Наименование,"Основной ответственный") Тогда
				НоваяСтрокаНастроек.Значение = НовыйПользователь.Ссылка;
			КонецЕсли;	
		КонецЦикла;	
		
		Если НаборНовогоПользователя.Количество()>0 Тогда
			НаборНовогоПользователя.Записать();
		КонецЕсли;	
		сообщить("Создан пользователь "+ФИОСоздаваемогоПользователя);
		
		Запрос = Новый Запрос;
		Запрос.Текст = 
		"ВЫБРАТЬ
		|	ГруппыПользователейПользователиГруппы.Ссылка
		|ИЗ
		|	Справочник.ГруппыПользователей.ПользователиГруппы КАК ГруппыПользователейПользователиГруппы
		|ГДЕ
		|	ГруппыПользователейПользователиГруппы.Пользователь =Пользователь
		|
		|СГРУППИРОВАТЬ ПО
		|	ГруппыПользователейПользователиГруппы.Ссылка";
		
		Запрос.УстановитьПараметр("Пользователь", ПользовательНастроек);
		
		РезультатЗапроса = Запрос.Выполнить();
		
		ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
		
		Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
			объ = ВыборкаДетальныеЗаписи.Ссылка.ПолучитьОбъект();
			НоваяСтрока = объ.ПользователиГруппы.Добавить();
			НоваяСтрока.Пользователь = НовыйПользователь.Ссылка;
			объ.Записать();
		КонецЦикла;
		
	Иначе
		сообщить("Указанное ФИО Пользователя уже используется !!! ");
	КонецЕсли;
	
	
КонецПроцедуры   

 Функция ДобавитьПользователя(ИмяПользователя, ДоменноеИмя, ПользовательАктивен, АутентификацияОС, Авторизация1СПредприятия, МассивРолей) Экспорт
    // Попробуем найти сотрудника
    Пользователь = ПользователиИнформационнойБазы.НайтиПоИмени(ИмяПользователя);


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


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


    // Записываем свойства
    Пользователь.АутентификацияОС = АутентификацияОС;
    Пользователь.АутентификацияСтандартная = Авторизация1СПредприятия;
    Пользователь.ЗапрещеноИзменятьПароль = Истина;
    Пользователь.Имя = ИмяПользователя;
    Пользователь.ПолноеИмя = ИмяПользователя;
    Пользователь.ПоказыватьВСпискеВыбора = Ложь;
    Пользователь.ПользовательОС = ДоменноеИмя;
    
    // Сначала очистим все текущие роли
    Пользователь.Роли.Очистить();
    
    //  Теперь найдем переданный массив ролей в справочнике профилей 
    // и добавим все роли указанные в профиле. Все очень сложно, да
    МассивИменРолей = Новый Массив();
    Для Каждого Роль Из МассивРолей.Role Цикл
        МассивИменРолей.Добавить(Роль);    
    КонецЦикла;
    ТекстЗапроса = "ВЫБРАТЬ
                   |    ПрофилиГруппДоступаРоли.Роль.Имя КАК Имя
                   |ИЗ
                   |    Справочник.ПрофилиГруппДоступа.Роли КАК ПрофилиГруппДоступаРоли
                   |ГДЕ
                   |    ПрофилиГруппДоступаРоли.Ссылка.Наименование В(&МассивИменРолей)";
    Запрос = Новый Запрос(ТекстЗапроса);
    Запрос.УстановитьПараметр("МассивИменРолей", МассивИменРолей);
    Результат = Запрос.Выполнить().Выгрузить();    
    Для Каждого Роль Из Результат Цикл
        НайденнаяРоль = Метаданные.Роли.Найти(Роль.Имя);
        Если НайденнаяРоль <> Неопределено Тогда
            Пользователь.Роли.Добавить(НайденнаяРоль);
        КонецЕсли;
    КонецЦикла;

    // Записываем!
    Пользователь.Записать();

    // Теперь посмотрим нужно ли деактивировать пользователя
    Если Не ПользовательАктивен Тогда
        ДективироватьПользователя(Пользователь);    
    КонецЕсли;

    // Запишем еще и справочник пользователя
    ЗаполнитьСправочникПользователя(Пользователь);
  
    Возврат Истина;
КонецФункции


// Процедура заполняет помимо прочего справочник пользователя
Процедура ЗаполнитьСправочникПользователя(ПользовательИБ) Экспорт
    ТекстЗапроса = "ВЫБРАТЬ
                   |    ИСТИНА КАК ЕстьПользователь,
                   |    Пользователи.Ссылка КАК Пользователь
                   |ИЗ
                   |    Справочник.Пользователи КАК Пользователи
                   |ГДЕ
                   |    Пользователи.ИдентификаторПользователяИБ =ИдентификаторПользователяИБ
                   |
                   |ОБЪЕДИНИТЬ ВСЕ
                   |
                   |ВЫБРАТЬ
                   |    ЛОЖЬ,
                   |    NULL";
    Запрос = Новый Запрос(ТекстЗапроса);
    Запрос.УстановитьПараметр("ИдентификаторПользователяИБ", ПользовательИБ.УникальныйИдентификатор);
    Результат = Запрос.Выполнить().Выгрузить()[0];
    ОписаниеПользователя = Пользователи.НовоеОписаниеПользователяИБ();
    Если Результат.ЕстьПользователь Тогда
        ПользовательОбъект = Результат.Пользователь.ПолучитьОбъект();
    Иначе            
        ПользовательОбъект = Справочники.Пользователи.СоздатьЭлемент(); 
        ПользовательОбъект.ИдентификаторПользователяИБ = ПользовательИБ.УникальныйИдентификатор;
        ПользовательОбъект.Наименование = ПользовательИБ.Имя;
        ОписаниеПользователя.Вставить("Действие", "Записать");
        ПользовательОбъект.ДополнительныеСвойства.Вставить("ОписаниеПользователяИБ", ОписаниеПользователя);
    КонецЕсли;
    ЗаполнитьЗначенияСвойств(ОписаниеПользователя, ПользовательИБ);
    Для Каждого Элемент Из ОписаниеПользователя Цикл
        ПользовательОбъект.ДополнительныеСвойства.Вставить(Элемент.Ключ, Элемент.Значение);        
    КонецЦикла;        
    ПользовательОбъект.ДополнительныеСвойства.Удалить("Роли");
    ПользовательОбъект.Записать();
КонецПроцедуры   

 ВыгрузитьЖурналРегистрации("C:\log.xml"); 

Пользователи = ПользователиИнформационнойБазы.ПолучитьПользователей(); 
Для Каждого Пользователь из Пользователи Цикл 
	НовыйЭлемент = СписокПользователей.Добавить(); 
	НовыйЭлемент.Пометка = Истина; 
	НовыйЭлемент.Значение = Пользователь; 
	НовыйЭлемент.Представление = Пользователь.Имя; 
КонецЦикла; 

Массив = Новый Массив; 
Для Каждого Пользователь Из СписокПользователей Цикл 
	Если Пользователь.Пометка Тогда 
		Массив.Добавить(Пользователь); 
	КонецЕсли; 
КонецЦикла; 

СтруктураФильтра = Новый Структура; 
СтруктураФильтра.Вставить("Пользователь", Массив); 
ВыгрузитьЖурналРегистрации("C:\log.xml", СтруктураФильтра, "Дата, Пользователь, ПредставлениеСобытия");    

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

 // функция сохраняет рабочую конфигурацию в файл, в случае успеха возвращает Истина
// параметры:
//    Логин - имя пользователя с правами на админисирирование БД
//    Пароль - строка пароля
//    ИмяФайла - полное имя файла для сохранения конфигурации, не обязательно. 
//               по умолчанию использует каталог временных файлов и имя 1Cv8.cf
функция СохранитьТекущуюКонфигурацию (Логин, Пароль, ИмяФайла="") экспорт
    результат = Ложь;
    
    Если ИмяФайла = "" Тогда
        ИмяФайла = КаталогВременныхФайлов() + "1Cv8.cf";        
    КонецЕсли;
    
    СтрокаБазы = СтрокаСоединенияИнформационнойБазы();
    Если Лев(СтрокаБазы, 5) = "File=" Тогда
        // файловый вариант
        СтрокаБазы = Сред(СтрокаБазы, 6, СтрДлина(СтрокаБазы) - 6);
    Иначе
        // серверный вариант пока не готов...
                // может кто допишет?
        возврат Ложь;
    КонецЕсли;
    
    ВыбФайл = Новый Файл(ИмяФайла);
    Если ВыбФайл.Существует() Тогда
        Сигнатура = Строка(ВыбФайл.Размер()) + Строка(ВыбФайл.ПолучитьВремяИзменения()); 
    Иначе
        Сигнатура = "";
    КонецЕсли;
    
    СтрокаЗапуска = """" + КаталогПрограммы() + "1cv8.exe"" CONFIG /F " + СтрокаБазы 
                + ?(Логин = "", "", " /N " + Логин) 
                + ?(Пароль = "", "", " /P " + Пароль) + " /DumpDBCfg """ + ИмяФайла + """";
                
    //            
    // КомандаСистемы (СтрокаЗапуска); не работает!!!!! из-за кавычек в параметрах
    // приходиться  идти кругом...
    // зато можно избежать черного окошка
    //
    WshShell = Новый COMОбъект("WScript.Shell");
    WshShell.Run(СтрокаЗапуска, 0, Истина);
    
    ВыбФайл = Новый Файл(ИмяФайла);
    Если ВыбФайл.Существует() Тогда
        НоваяСигнатура = Строка(ВыбФайл.Размер()) + Строка(ВыбФайл.ПолучитьВремяИзменения());
        Если Сигнатура <> НоваяСигнатура Тогда
            Результат = Истина;
        КонецЕсли;            
    КонецЕсли;
    
    Возврат Результат;
КонецФункции   

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

 Выборка = ПользователиИнформационнойБазы.ПолучитьПользователей();

Для Каждого ЭлементМассива Из Выборка Цикл
	ИмяПользователя = ЭлементМассива.Имя;	
	ПолноеИмяПользователя = ЭлементМассива.ПолноеИмя;
	ЕстьПароль = ЭлементМассива.ПарольУстановлен;
	Роли = ЭлементМассива.Роли;
	
	Для Каждого Роль Из Роли Цикл
		ИмяРоли = Роль.Имя;
		
	КонецЦикла;	
КонецЦикла;	   

  Выборка = ПользователиИнформационнойБазы.ПолучитьПользователей(); 
Для Каждого ЭлементМассива Из Выборка Цикл 
	ИмяПользователя = ЭлементМассива.Имя; 
	ПолноеИмяПользователя = ЭлементМассива.ПолноеИмя; 
	ЕстьПароль = ЭлементМассива.ПарольУстановлен; 
	Роли = ЭлементМассива.Роли; 
	
	Для Каждого Роль Из Роли Цикл 
		ИмяРоли = Роль.Имя; 
	КонецЦикла; 
КонецЦикла;
   

 //  Функция возвращает список зарегистрированных для выбранной
//  базы пользователей. Если пользователи не определены, список
//  будет пуст.
//
функция сзПолучитьПользователей(стрПутьКБазе)
    // Создаем список значений для возврата
    Ответ = создатьобъект("СписокЗначений");
    // Формируем полное имя файла, в котором 1С
    // хранит информацию о пользователях базы.
    стрИмяФайла = стрПутьКБазе + "\UsrDEF\Users.USR";
    // Проверим его наличие.
    если фс.СуществуетФайл(стрИмяФайла) > 0 тогда
        // Создаем объект FSO для работы с файлами.
        обФСО = создатьобъект("Scripting.FileSystemObject");
        // Открываем файл пользователей как текстовый.
        тхтФайл = обФСО.OpenTextFile(стрИмяФайла);
        // Инициализация первоначальных переменных
        // Загружаем в буфер(тестовую строку) информацию из файла.
        стрБуфер = "";
        чисПозиция = 0;
        // Перебеирать файл придеться посимвольно, так как 1С не совсеми
        // символами может работать коректно если они находяться в строке.
        пока тхтФайл.AtEndOfStream = 0 цикл
            // Получаем очередную позицию в файле.
            чисПозиция = чисПозиция + 1;
            // Получаем символ из данной позиции.
            стрСимв = тхтФайл.Read(1);
            // Если код символа больше 31
            если кодсимв(стрСимв) > 31 тогда
                // Тогда добавляем его к буферу.
                стрБуфер = стрБуфер + стрСимв;
            конецесли;
        конеццикла;
        // После формирования буфера начнем искать пользователей в нем.
        // Признаком для пользователя будет строка '{"UserItemType","Page.'
        стрПоиска = "{""UserItemType"",""Page.";
        // Получаем позицию первого пользователя.
        чисПозиция = найти(стрБуфер, стрПоиска);
        // Проверяем если в буфере нужная нам строка
        если чисПозиция > 0 тогда
            // Если есть, вырезаем из строки ненужную информацию.
            стрБуфер = сред(стрБуфер, чисПозиция);
            // Позиция после отрезания становиться в единицу
            чисПозиция = 1;
        конецесли;
        // В цикле получаем информацию о пользователях БД
        пока чисПозиция > 0 цикл
            // Удаляем из буфера 'мусор'
            стрБуфер = сред(стрБуфер, чисПозиция + 22);
            // Находим признак начала информации об имени пользователя.
            чисСмещение = найти(стрБуфер, """,""") + 3;
            // Перемещаем начало буфера на начало информации об имени пользователя
            стрБуфер = сред(стрБуфер, чисСмещение);
            // Получаем имя пользователя
            стрИмяПользователя = лев(стрБуфер, найти(стрБуфер, """,""") - 1);
            // Добовляем имя к нашему списку.
            Ответ.ДобавитьЗначение(стрИмяПользователя);
            // Получаем очередную позицию информации о пользователе
            чисПозиция = найти(стрБуфер, стрПоиска);
        конеццикла;
    конецесли;
    // Возращаем полученный список значений содержащий в себе список пользователей базы
    возврат Ответ;
конецфункции