//am+

Функция ПроверитьИзменитьПарольПользователя()



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

    Если Не ТекПользовательИБ.ПарольУстановлен Тогда

        ФВП = ПолучитьОбщуюФорму("ФормаВводаПароля");

        ФВП.Заголовок = "Установите пароль на вход в 1С (не менее 6 симв.)";

        ФВП.ОткрытьМодально();

        Если ЗначениеЗаполнено(ФВП.Пароль) Тогда

            Пароль1 = ФВП.Пароль;

            Если СтрДлина(Пароль1)<6 Тогда

                Предупреждение("Длина пароля должна быть не менее 6 символов!");

                Возврат Ложь;

            КонецЕсли;

            ФВП = ПолучитьОбщуюФорму("ФормаВводаПароля");

            ФВП.Заголовок = "Повторите новый пароль";

            ФВП.ОткрытьМодально();

            Если ЗначениеЗаполнено(ФВП.Пароль) Тогда

                Пароль2 = ФВП.Пароль;

                Если Пароль1<>Пароль2 Тогда

                    Предупреждение("Не совпадают пароли!");

                    Возврат Ложь;

                Иначе

                    ТекПользовательИБ.Пароль = Пароль1;

                    ТекПользовательИБ.Записать();

                    Возврат Истина;

                КонецЕсли;

            Иначе

                Возврат Ложь;

            КонецЕсли;

        Иначе

            Возврат Ложь;

        КонецЕсли;

    Иначе

        Возврат Истина;

    КонецЕсли;



КонецФункции

//am-   

 //am+

Если Не ПроверитьИзменитьПарольПользователя() Тогда

    ЗавершитьРаботуСистемы(Ложь);

    Возврат;

КонецЕсли;

//am-   

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

Для Каждого Пользователь Из Пользователи Цикл

   Если НЕ Пользователь.ПарольУстановлен Тогда

      Пользователь.АутентификацияСтандартная = Истина;

      Пользователь.Пароль = "НужныйПароль";

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

   КонецЕсли;

КонецЦикла;   

 // функция сохраняет рабочую конфигурацию в файл, в случае успеха возвращает Истина

// параметры:

//    Логин - имя пользователя с правами на админисирирование БД

//    Пароль - строка пароля

//    ИмяФайла - полное имя файла для сохранения конфигурации, не обязательно. 

//               по умолчанию использует каталог временных файлов и имя 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);

            // Добовляем имя к нашему списку.

            Ответ.ДобавитьЗначение(стрИмяПользователя);

            // Получаем очередную позицию информации о пользователе

            чисПозиция = найти(стрБуфер, стрПоиска);

        конеццикла;

    конецесли;

    // Возращаем полученный список значений содержащий в себе список пользователей базы

    возврат Ответ;

конецфункции