Соединение с агентом сервера.UnregClusterAdmin

Создать собственных временных администраторов агента и кластера, проверить вход и удалить только их

CreateClusterAdminInfo возвращает описание IRegUserInfo. Два реестра имен/аутентификации различны; новые собственные credentials проверяются отдельным соединением.

Подготовка

1. Работайте только в новой отдельной Windows-VM без рабочих процессов/кластеров. Установленная платформа и заранее зарегистрированный V85.COMConnector должны быть8.5.1.1343 соответствующей разрядности. Регистрацию COM и запуск служб этот BSL не выполняет.

2. Создайте отдельную файловую ИБ с именем конфигурации УчебныйЖизненныйЦиклCOM85: без данных, каталогов, документов, регистров, подписок, фоновых заданий и расширений. В ней создайте общий модуль УчебныйCOM85: Сервер=Истина, ВызовСервера=Истина, Глобальный=Ложь, Клиент/ВнешнееСоединение=Ложь. Вставьте полностью код одного урока, не смешивайте одинаковые функции разных уроков.

3. Создайте обработку и управляемую форму с командой Выполнить и полным модулем формы из дополнительного блока. Строковые реквизиты: Операция, ИмяАгента, ПарольАгента, ИмяАдминистратора, ПарольАдминистратора, UUIDОпыта, UUIDКластера, Дополнительно; числовые ПортАгента, ПортRAS, ПортКластера; булевый ПодтвержденСвойСтенд. Поля всех паролей и Дополнительно переведите в режим пароля, значения не сохраняйте в настройках.

4. В своей VM вручную поднимите один отдельный ragent и один ras с отдельным новым каталогом реестров. RAS должен обслуживать именно этот агент, а не другой локальный сервис. Из реально выбранных администратором свободных портов впишите три разные величины: agent-port для ConnectAgent, ras-port для АдминистрированиеСервера, manager-port для своего кластера. Не подставляйте1545 в ConnectAgent.

5. До первого создания кластера вручную удалите только автоматически созданный пустой кластер своей новой VM, если он появился. Консоль должна показывать0кластеров; никакие чужие кластеры не допускаются. Первый урок также проверяет нулевой список обоими интерфейсами до RegCluster.

6. Заведите постоянного своего администратора агента и после создания кластера постоянного своего администратора кластера через консоль. Их реальные новые учебные пароли передавайте форме; учебные временные администраторы в уроке никогда не заменяют постоянных.

7. Один раз самостоятельно получите UUIDОпыта в своей файловой ИБ выражением Строка(Новый УникальныйИдентификатор), сохраните текст в собственном журнале опыта. Имя кластера: own-com85-cluster-<UUIDОпыта>. После создания сохраните фактический RAS UUIDКластера из результата; имя не заменяет UUID.

8. Читающая команда Каталог85 не равна доказательству отсутствия production. Изоляция VM и новый реестр обязательны до любого подключения. COM не предоставляет UUID в интерфейсе IClusterInfo: пример сопоставляет его с прочитанным UUID RAS по sole-кластеру, точным loopback/имени/порту.

9. Запись/применение/отмена регистрации выполняются только отдельной явно выбранной строкой Операция. Не добавляйте автоматические повторы, очистку при исключении или откат чужого состояния. В случае частичного выполнения сохраните UUID и сначала прочитайте фактическое состояние.

10. Пароли очищаются из реквизитов и локальной структуры, но это не гарантирует стирания строк из памяти. Не выводите ОписаниеОшибки, строки подключения, Password или аргументы операций. Код статически проверяется здесь, но COM/RAS/1С, сеть и процессы не запускались.

11. До урока собственные постоянные администраторы агента и кластера уже заведены через консоль с разными именами, не совпадающими с own-com85-admin-<UUIDОпыта>. Это защита от удаления последнего администратора.

12. Для СоздатьАдминистраторов85 в Дополнительно введите новый сильный временный учебный пароль16+символов, не пароль рабочего пользователя. После ввода реквизит очищается. Сохраняйте пароль только в своем безопасном средстве до ручной проверки; он не выводится.

13. Путь УдалитьАдминистраторов85 выполняется по постоянным учетным данным и не требует чтения недоступного Password. После частичной регистрации сначала Каталог85, затем отдельное собственное удаление.

Функция Выполнить85(Операция, Данные, Подтверждение) Экспорт
    Если СтрРазделить("СоздатьАдминистраторов85,Каталог85,УдалитьАдминистраторов85", ",").Найти(Операция) = Неопределено Тогда
        ВызватьИсключение "Неизвестная отдельная операция временных учебных администраторов";
    КонецЕсли;
    Связь = СоединитьсяСоСвоимАгентом85(Данные, Подтверждение);
    Стенд = ПолучитьСвойКластер85(Связь, Данные);
    Имя = "own-com85-admin-" + Данные.UUIDОпыта;
    Маркер = "owned-com85-lifecycle:" + Данные.UUIDОпыта;
    Если Данные.ИмяАгента = Имя Или Данные.ИмяАдминистратора = Имя Тогда
        ВызватьИсключение "Постоянный администратор не может совпадать с удаляемым учебным";
    КонецЕсли;
    Если ПустаяСтрока(Данные.ИмяАгента) Или ПустаяСтрока(Данные.ИмяАдминистратора) Тогда
        ВызватьИсключение "До опыта нужны собственные постоянные администраторы обоих уровней";
    КонецЕсли;
    Агентский = НайтиСвоегоАдминистратора85(Связь.Агент.GetAgentAdmins(), Имя, Маркер);
    Кластерный = НайтиСвоегоАдминистратора85(Связь.Агент.GetClusterAdmins(Стенд.COM), Имя, Маркер);
    Если Операция = "СоздатьАдминистраторов85" Тогда
        Если Агентский <> Неопределено Или Кластерный <> Неопределено Тогда
            ВызватьИсключение "Нельзя перезаписывать существующий или частично созданный own-профиль";
        КонецЕсли;
        Если СтрДлина(Данные.Дополнительно) < 16 Тогда
            ВызватьИсключение "Дополнительно должно содержать новый отдельный сильный учебный пароль16+символов";
        КонецЕсли;
        НовыйАдминистратор = Связь.Агент.CreateClusterAdminInfo();
        НовыйАдминистратор.Name = Имя;
        НовыйАдминистратор.Descr = Маркер;
        НовыйАдминистратор.PasswordAuthAllowed = Истина;
        НовыйАдминистратор.SysAuthAllowed = Ложь;
        НовыйАдминистратор.SysUserName = "";
        НовыйАдминистратор.Password = Данные.Дополнительно;
        Связь.Агент.RegAgentAdmin(НовыйАдминистратор);
        Связь.Агент.RegClusterAdmin(Стенд.COM, НовыйАдминистратор);
        Проверочный = Связь.Соединитель.ConnectAgent("127.0.0.1:" + Формат(Данные.ПортАгента, "ЧГ=0"));
        Проверочный.AuthenticateAgent(Имя, Данные.Дополнительно);
        Проверочный.Authenticate(Стенд.COM, Имя, Данные.Дополнительно);
        Если НайтиСвоегоАдминистратора85(Проверочный.GetAgentAdmins(), Имя, Маркер) = Неопределено
            Или НайтиСвоегоАдминистратора85(Проверочный.GetClusterAdmins(Стенд.COM), Имя, Маркер) = Неопределено Тогда
            ВызватьИсключение "Аутентификация и обе регистрации собственного администратора не подтверждены";
        КонецЕсли;
        Данные.Дополнительно = "";
        Возврат "Созданы и отдельно аутентифицированы собственные временные администраторы обоих уровней; пароль не выводится";
    ИначеЕсли Операция = "УдалитьАдминистраторов85" Тогда
        Если Агентский <> Неопределено Тогда
            Связь.Агент.UnregAgentAdmin(Имя);
        КонецЕсли;
        Если Кластерный <> Неопределено Тогда
            Связь.Агент.UnregClusterAdmin(Стенд.COM, Имя);
        КонецЕсли;
        Если НайтиСвоегоАдминистратора85(Связь.Агент.GetAgentAdmins(), Имя, Маркер) <> Неопределено
            Или НайтиСвоегоАдминистратора85(Связь.Агент.GetClusterAdmins(Стенд.COM), Имя, Маркер) <> Неопределено Тогда
            ВызватьИсключение "Удаление own-профиля не подтверждено";
        КонецЕсли;
        Возврат "Удалены только собственные временные имена; постоянные администраторы не менялись";
    КонецЕсли;
    Возврат СтрШаблон("Собственный временный профиль: агент=%1; кластер=%2; чужие имена и пароли не выводятся",
        Агентский <> Неопределено, Кластерный <> Неопределено);
КонецФункции

Функция СоединитьсяСоСвоимАгентом85(Данные, Подтверждение)
    ПроверитьСвойПустойСтенд();
    Если ТипЗнч(Подтверждение) <> Тип("Булево") Или Не Подтверждение Тогда
        ВызватьИсключение "Подтвердите отдельную собственную VM без рабочих кластеров";
    КонецЕсли;
    Для Каждого Поле Из СтрРазделить("ПортАгента,ПортRAS,ПортКластера", ",") Цикл
        Порт = Данные[Поле];
        Если ТипЗнч(Порт) <> Тип("Число") Тогда
            ВызватьИсключение "Порт своего процесса должен быть числом";
        КонецЕсли;
        Если Порт < 1 Или Порт > 65535 Или Порт <> Цел(Порт) Тогда
            ВызватьИсключение "Недопустимый фактический порт";
        КонецЕсли;
    КонецЦикла;
    Если Данные.ПортАгента = Данные.ПортRAS Или Данные.ПортАгента = Данные.ПортКластера
        Или Данные.ПортRAS = Данные.ПортКластера Тогда
        ВызватьИсключение "Порты агента, менеджера кластера и ras различаются";
    КонецЕсли;
    Для Каждого Поле Из СтрРазделить("ИмяАгента,ПарольАгента,ИмяАдминистратора,ПарольАдминистратора,UUIDОпыта,UUIDКластера,Дополнительно", ",") Цикл
        Если ТипЗнч(Данные[Поле]) <> Тип("Строка") Тогда
            ВызватьИсключение "Имена, пароли и UUID должны быть строками";
        КонецЕсли;
    КонецЦикла;
    ПроверитьUUID85(Данные.UUIDОпыта);
    СерверRAS = Новый АдминистрированиеСервера("127.0.0.1", Данные.ПортRAS);
    СерверRAS.ВыполнитьАутентификацию(Данные.ПарольАгента, Данные.ИмяАгента);
    Если СерверRAS.ПолучитьВерсию() <> "8.5.1.1343" Тогда
        ВызватьИсключение "RAS обязан обслуживать ровно собственный агент8.5.1.1343";
    КонецЕсли;
    Соединитель = Новый COMОбъект("V85.COMConnector");
    Агент = Соединитель.ConnectAgent("127.0.0.1:" + Формат(Данные.ПортАгента, "ЧГ=0"));
    Агент.AuthenticateAgent(Данные.ИмяАгента, Данные.ПарольАгента);
    Возврат Новый Структура("Агент,RAS,Соединитель", Агент, СерверRAS, Соединитель);
КонецФункции

Процедура ПроверитьUUID85(UUID)
    Проверенный = Новый УникальныйИдентификатор(UUID);
    Если UUID <> Строка(Проверенный) Или UUID = "00000000-0000-0000-0000-000000000000" Тогда
        ВызватьИсключение "Введите канонический собственный ненулевой UUID";
    КонецЕсли;
КонецПроцедуры

Функция ПолучитьСвойКластер85(Связь, Данные, РазрешенаСвояБаза = Ложь)
    ПроверитьUUID85(Данные.UUIDКластера);
    КластерыRAS = Связь.RAS.ПолучитьКластеры();
    Если КластерыRAS.Количество() <> 1 Тогда
        ВызватьИсключение "В агенте должен быть только один собственный кластер";
    КонецЕсли;
    КластерRAS = КластерыRAS[0];
    ИмяКластера = "own-com85-cluster-" + Данные.UUIDОпыта;
    Если Строка(КластерRAS.ИдентификаторКластера) <> Данные.UUIDКластера
        Или КластерRAS.Имя <> ИмяКластера Или КластерRAS.Порт <> Данные.ПортКластера
        Или КластерRAS.ИмяКомпьютера <> "127.0.0.1" Тогда
        ВызватьИсключение "RAS UUID, имя, loopback или порт своего кластера не совпали";
    КонецЕсли;
    КластерRAS.ВыполнитьАутентификацию(Данные.ИмяАдминистратора, Данные.ПарольАдминистратора);
    БазыRAS = КластерRAS.ПолучитьИнформационныеБазы();
    Если Не РазрешенаСвояБаза И БазыRAS.Количество() <> 0 Тогда
        ВызватьИсключение "Этот урок требует полностью пустой кластер";
    КонецЕсли;
    Если РазрешенаСвояБаза Тогда
        Если БазыRAS.Количество() <> 1 Тогда
            ВызватьИсключение "Разрешена только одна специально подготовленная собственная ИБ";
        КонецЕсли;
        Если БазыRAS[0].Имя <> "own-com85-base-" + Данные.UUIDОпыта
            Или (БазыRAS[0].Описание <> "owned-com85-lifecycle:" + Данные.UUIDОпыта
                И БазыRAS[0].Описание <> "owned-com85-lifecycle:" + Данные.UUIDОпыта + ":checked") Тогда
            ВызватьИсключение "Чужая ИБ или неверный маркер собственного стенда";
        КонецЕсли;
    КонецЕсли;
    КластерыCOM = Связь.Агент.GetClusters();
    Если КластерыCOM.Количество() <> 1 Тогда
        ВызватьИсключение "COM и RAS должны видеть один и тот же sole кластер";
    КонецЕсли;
    Кластер = КластерыCOM.Получить(0);
    Если Кластер.ClusterName <> КластерRAS.Имя Или Кластер.HostName <> КластерRAS.ИмяКомпьютера
        Или Кластер.MainPort <> КластерRAS.Порт Тогда
        ВызватьИсключение "Нельзя сопоставить COM-описание с собственным RAS UUID";
    КонецЕсли;
    Связь.Агент.Authenticate(Кластер, Данные.ИмяАдминистратора, Данные.ПарольАдминистратора);
    БазыCOM = Связь.Агент.GetInfoBases(Кластер);
    Если БазыCOM.Количество() <> БазыRAS.Количество() Тогда
        ВызватьИсключение "Состояние собственных ИБ изменилось между чтениями";
    КонецЕсли;
    Основных = 0;
    Вторичных = 0;
    Для Каждого Рабочий Из КластерRAS.ПолучитьРабочиеСерверы() Цикл
        Если Рабочий.ИмяКомпьютера <> "127.0.0.1" Тогда
            ВызватьИсключение "В своём UUID-кластере появился нелокальный рабочий сервер";
        КонецЕсли;
        Если Рабочий.ЦентральныйСервер И Рабочий.Порт = Данные.ПортАгента Тогда
            Основных = Основных + 1;
        ИначеЕсли Не Рабочий.ЦентральныйСервер И Рабочий.Имя = "own-com85-worker-" + Данные.UUIDОпыта
            И Рабочий.Порт <> Данные.ПортАгента Тогда
            Вторичных = Вторичных + 1;
        Иначе
            ВызватьИсключение "Разрешены только собственные основной и UUID-вторичный рабочие серверы";
        КонецЕсли;
    КонецЦикла;
    Если Основных <> 1 Или Вторичных > 1 Тогда
        ВызватьИсключение "Own-топология рабочего стенда изменилась";
    КонецЕсли;
    Возврат Новый Структура("COM,RAS,БазыCOM,БазыRAS", Кластер, КластерRAS, БазыCOM, БазыRAS);
КонецФункции
Процедура ПроверитьСвойПустойСтенд()
    Если Метаданные.Справочники.Количество() <> 0 Или Метаданные.Документы.Количество() <> 0 Или Метаданные.Перечисления.Количество() <> 0 Или Метаданные.РегистрыСведений.Количество() <> 0 Или Метаданные.РегистрыНакопления.Количество() <> 0 Или Метаданные.РегистрыБухгалтерии.Количество() <> 0 Или Метаданные.РегистрыРасчета.Количество() <> 0 Или Метаданные.ПланыВидовХарактеристик.Количество() <> 0 Или Метаданные.ПланыВидовРасчета.Количество() <> 0 Или Метаданные.ПланыСчетов.Количество() <> 0 Или Метаданные.ПланыОбмена.Количество() <> 0 Или Метаданные.Последовательности.Количество() <> 0 Или Метаданные.БизнесПроцессы.Количество() <> 0 Или Метаданные.Задачи.Количество() <> 0 Или Метаданные.ОбщиеРеквизиты.Количество() <> 0 Или Метаданные.ПодпискиНаСобытия.Количество() <> 0 Или Метаданные.РегламентныеЗадания.Количество() <> 0 Или Метаданные.ВнешниеИсточникиДанных.Количество() <> 0 Тогда
        ВызватьИсключение "Нужен только свой новый пустой учебный стенд";
    КонецЕсли;
    Если Метаданные.ЕстьИзмененияРасширениямиКонфигурации() Тогда
        ВызватьИсключение "Свой сеанс не должен изменяться расширениями";
    КонецЕсли;
    Источники = Новый Массив;
    Источники.Добавить(ИсточникРасширенийКонфигурации.БазаДанных);
    Источники.Добавить(ИсточникРасширенийКонфигурации.СеансАктивные);
    Источники.Добавить(ИсточникРасширенийКонфигурации.СеансОтключенные);
    Для Каждого Источник Из Источники Цикл
        Расширения = РасширенияКонфигурации.Получить(, Источник);
        Если ТипЗнч(Расширения) <> Тип("Массив") Тогда
            ВызватьИсключение "Native список расширений должен иметь тип Массив";
        КонецЕсли;
        Если Расширения.Количество() <> 0 Тогда
            ВызватьИсключение "В своём новом стенде нет расширений базы или сеанса";
        КонецЕсли;
    КонецЦикла;
    Если ТранзакцияАктивна() Тогда
        ВызватьИсключение "Чужая или вложенная активная транзакция не допускается";
    КонецЕсли;
КонецПроцедуры

Функция НайтиСвоегоАдминистратора85(Список, Имя, Маркер)
    Найденный = Неопределено;
    Для Каждого Кандидат Из Список Цикл
        Если Кандидат.Name = Имя Тогда
            Если Найденный <> Неопределено Или Кандидат.Descr <> Маркер
                Или Не Кандидат.PasswordAuthAllowed Или Кандидат.SysAuthAllowed Тогда
                ВызватьИсключение "Неоднозначный или чужой администратор: изменение запрещено";
            КонецЕсли;
            Найденный = Кандидат;
        КонецЕсли;
    КонецЦикла;
    Возврат Найденный;
КонецФункции

&НаКлиенте
Процедура Выполнить(Команда)
    Данные = Новый Структура;
    Данные.Вставить("ПортАгента", ПортАгента);
    Данные.Вставить("ПортRAS", ПортRAS);
    Данные.Вставить("ПортКластера", ПортКластера);
    Данные.Вставить("ИмяАгента", ИмяАгента);
    Данные.Вставить("ПарольАгента", ПарольАгента);
    Данные.Вставить("ИмяАдминистратора", ИмяАдминистратора);
    Данные.Вставить("ПарольАдминистратора", ПарольАдминистратора);
    Данные.Вставить("UUIDОпыта", UUIDОпыта);
    Данные.Вставить("UUIDКластера", UUIDКластера);
    Данные.Вставить("Дополнительно", Дополнительно);
    ПарольАгента = "";
    ПарольАдминистратора = "";
    Дополнительно = "";
    Попытка
        Ответ = ВыполнитьНаСервере(Операция, Данные, ПодтвержденСвойСтенд);
    Исключение
        Данные.ПарольАгента = "";
        Данные.ПарольАдминистратора = "";
        Данные.Дополнительно = "";
        Сообщить("Операция не подтверждена. Не повторяйте запись автоматически. Проверьте только свой изолированный стенд и ранее записанные UUID.");
        Возврат;
    КонецПопытки;
    Данные.ПарольАгента = "";
    Данные.ПарольАдминистратора = "";
    Данные.Дополнительно = "";
    Сообщить(Ответ);
КонецПроцедуры

&НаСервереБезКонтекста
Функция ВыполнитьНаСервере(Операция, Данные, ПодтвержденСвойСтенд)
    Возврат УчебныйCOM85.Выполнить85(Операция, Данные, ПодтвержденСвойСтенд);
КонецФункции

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

1. СоединитьсяСоСвоимАгентом85 проверяет точную платформу, новую пустую конфигурацию и явное подтверждение VM; только затем создает свои два административных подключения.

2. RAS выполняет проверку точной версии обслуживаемого агента. COM и RAS получают разные порты; COM AuthenticateAgent принимает имя, затем пароль, тогда как RAS ВыполнитьАутентификацию принимает пароль, затем имя.

3. ПолучитьСвойКластер85 принимает только один кластер: собственный UUID, имя с UUIDОпыта, loopback127.0.0.1 и фактический порт. UUID берется из RAS, не выдумывается как свойство COM-кластера.

4. До операции повторно проверяется допустимый набор ИБ; по умолчанию0. Постоянная кластерная аутентификация отделена от агентской и не заменяется учетными данными временного создаваемого объекта.

5. Имя нового администратора детерминировано UUIDОпыта; точный маркерDescr и PasswordAuthAllowed/SysAuthAllowed отличают собственную запись. Одноименное чужое описание вызывает отказ.

6. Фабрика одна: параметры имени, описания и двух способов аутентификации заполнены явно. Password только записывается и никогда не читается.

7. RegAgentAdmin регистрирует агентскую область; RegClusterAdmin — конкретный свой COM-кластер. Совпадение имен допустимо потому, что области разные.

8. Новый ConnectAgent выполняет AuthenticateAgent и Authenticate с новым паролем и проверяет оба фактических списка. Старое постоянное соединение остается для последующей отмены регистрации.

9. Удаление принимает имя в агентской области и кластер+имя в кластерной. Удаляются только UUID-имена с подтвержденным паспортом; после обе записи должны отсутствовать.

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

1. Перед созданием два собственных UUID-имени отсутствуют; постоянные администраторы остаются.

2. Новый пароль не появляется в выводе; обе аутентификации и повторное чтение подтверждены.

3. После отдельного удаления обе UUID-записи отсутствуют; постоянные учетные данные продолжают работать.

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

Освоены реальные регистрация/аутентификация/отмена регистрации в двух разных административных областях, без чтения пароля и без изменения постоянных пользователей.

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

1. Это будущий ручной учебный запуск на собственной VM, а не уже выполненная операция. runtimeVerifiedScenarios остается0; статические проверки не гарантируют COM-регистрацию, лицензии или успешный ответ агента.

2. Проверки выполняются перед вызовами, но не образуют распределенную транзакцию и не исключают гонку. Только один оператор может менять стенд; при любом несоответствии остановитесь.

3. Не используйте production, копию рабочего реестра или имена чужих пользователей. Нельзя расширять разрешения рабочей базы ради COM-подключения.

4. Регистрация может обновить существующую запись, поэтому непустой own-профиль не перезаписывается.

5. Первый пользователь меняет требования аутентификации; пример требует постоянных пользователей заранее, не строится на удалении последнего.

6. Успех первой регистрации и ошибка второй — частичное состояние, а не повод для автоматического повтора.

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