АдминистрированиеАдминистратор.Пароль

Подготовить нового администратора, не регистрируя его

СоздатьАдминистратораКластера возвращает объект с пустыми свойствами. Заполняем его в памяти и проверяем, что список зарегистрированных администраторов не изменился.

Подготовка

1. Только отдельный учебный кластер 1С:Предприятия 8.5.1.1343 с уже настроенным ras совместимой версии. Не подключайтесь к рабочему серверу для обучения.

2. Создайте внешнюю обработку с управляемой формой. Добавьте реквизиты АдресRAS (Строка), ПортRAS (Число), ИмяАгента, ПарольАгента, ИдентификаторКластера, ИмяАдминистратораКластера, ПарольАдминистратораКластера (Строка). Выведите поля на форму; у элементов ввода паролей в свойствах включите Режим пароля (PasswordMode).

3. АдресRAS относится к машине серверного выполнения кода. Пример для ras на этой же тестовой машине: 127.0.0.1 и порт 1545; подтвердите фактические адрес и порт у администратора.

4. Используйте законные учётные данные учебного агента и кластера. Оставлять имя и пароль пустыми можно только если соответствующие администраторы не зарегистрированы и среда допускает такую аутентификацию.

5. При первом запуске оставьте ИдентификаторКластера пустым: код выведет идентификаторы и имена кластеров. Скопируйте идентификатор нужного учебного кластера в поле и повторите.

6. Вставьте клиентскую процедуру и серверную функцию отдельно на уровне модуля формы. Код не запускает ras и не настраивает учётные записи.

7. Добавьте реквизиты ИмяНовогоАдминистратора и ПарольНовогоАдминистратора типа Строка; пароль скрывайте при вводе.

8. Создайте команду ПодготовитьАдминистратора и кнопку. Используйте новое учебное имя, не совпадающее с рабочим администратором.

9. Не добавляйте в код вызов Записать: эта задача намеренно ограничена подготовкой объекта.

&НаКлиенте
Процедура ПодготовитьАдминистратора(Команда)
    Результат = ПодготовитьАдминистратораНаСервере(АдресRAS, ПортRAS, ИмяАгента, ПарольАгента, ИдентификаторКластера, ИмяАдминистратораКластера, ПарольАдминистратораКластера, ИмяНовогоАдминистратора, ПарольНовогоАдминистратора);
    Сообщить(Результат);
КонецПроцедуры

&НаСервереБезКонтекста
Функция ПодготовитьАдминистратораНаСервере(АдресRAS, ПортRAS, ИмяАгента, ПарольАгента, ИдентификаторКластера, ИмяАдминистратораКластера, ПарольАдминистратораКластера, ИмяНовогоАдминистратора, ПарольНовогоАдминистратора)
    Сервер = Новый АдминистрированиеСервера(АдресRAS, ПортRAS);
    Сервер.ВыполнитьАутентификацию(ПарольАгента, ИмяАгента);
    Кластеры = Сервер.ПолучитьКластеры();
    Если Не ЗначениеЗаполнено(ИдентификаторКластера) Тогда
        Строки = Новый Массив;
        Для Каждого Элемент Из Кластеры Цикл
            Строки.Добавить(Строка(Элемент.ИдентификаторКластера) + " — " + Элемент.Имя);
        КонецЦикла;
        Если Строки.Количество() = 0 Тогда
            Возврат "Кластеров нет";
        КонецЕсли;
        Возврат СтрСоединить(Строки, Символы.ПС);
    КонецЕсли;
    Кластер = Неопределено;
    Для Каждого Элемент Из Кластеры Цикл
        Если НРег(Строка(Элемент.ИдентификаторКластера)) = НРег(СокрЛП(ИдентификаторКластера)) Тогда
            Кластер = Элемент;
            Прервать;
        КонецЕсли;
    КонецЦикла;
    Если Кластер = Неопределено Тогда
        ВызватьИсключение "Указанный учебный кластер не найден";
    КонецЕсли;
    Кластер.ВыполнитьАутентификацию(ИмяАдминистратораКластера, ПарольАдминистратораКластера);
    Если Не ЗначениеЗаполнено(ИмяНовогоАдминистратора) Или Не ЗначениеЗаполнено(ПарольНовогоАдминистратора) Тогда
        ВызватьИсключение "Заполните имя и учебный пароль нового администратора";
    КонецЕсли;
    До = Кластер.ПолучитьАдминистраторовКластера().Количество();
    НовыйАдминистратор = Кластер.СоздатьАдминистратораКластера();
    НовыйАдминистратор.Имя = ИмяНовогоАдминистратора;
    НовыйАдминистратор.Описание = "Учебный объект, регистрация не выполняется";
    НовыйАдминистратор.АутентификацияСтандартная = Истина;
    НовыйАдминистратор.АутентификацияОС = Ложь;
    НовыйАдминистратор.ПользовательОС = "";
    НовыйАдминистратор.Пароль = ПарольНовогоАдминистратора;
    После = Кластер.ПолучитьАдминистраторовКластера().Количество();
    Возврат СтрШаблон("Подготовлен %1. Зарегистрировано до: %2, после: %3. Записать не вызывался.",
        НовыйАдминистратор.Имя, До, После);
КонецФункции

Разбор по шагам

1. До подготовки читаем количество зарегистрированных администраторов.

2. СоздатьАдминистратораКластера создаёт описание с пустыми свойствами, не регистрационную запись.

3. Заполняем имя, описание, пароль и разрешаем стандартную аутентификацию; ОС-аутентификацию здесь отключаем.

4. Пароль только присваивается: его не читаем обратно и не выводим.

5. Повторное чтение списка показывает, что подготовка без Записать не регистрирует объект.

Как проверить результат

1. Количество до и после должно совпасть при отсутствии параллельных изменений администраторами.

2. Учебное имя не должно появиться в зарегистрированных администраторах.

3. Пустое имя или пароль дают понятное исключение до создания описания.

Ожидаемый результат

Создан и заполнен объект-описание администратора в памяти; список зарегистрированных администраторов не изменяется.

На что обратить внимание

1. Вызов Записать уже изменяет сервер — это отдельная операция с отдельными проверками.

2. Не сохраняйте настоящий рабочий пароль в учебном файле или настройках обработки.

3. Параллельные изменения другим администратором могут изменить счётчик независимо от этого кода.

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