Тип: Строка. Содержит описание администратора центрального сервера или кластера серверов. Предназначено для визуального отображения.
Полное описание, параметры и ограничения
Администратор.Descr (IRegUserInfo.Descr)
Администратор (IRegUserInfo)
Descr (Descr)
Доступен, начиная с версии 8.1.
Использование:
Чтение и запись.
Описание:
Тип: Строка.
Содержит описание администратора центрального сервера или кластера серверов. Предназначено для визуального отображения.
Доступность:
Интеграция.
Использование в версии:
Доступен, начиная с версии 8.1.
Методическая информация
Практические примеры
Прочитать администраторов кластера через COM-интерфейс
Это тип Администратор (IRegUserInfo), а не АдминистрированиеАдминистратор. Получаем его через COM-соединитель и GetClusterAdmins.
Где и как запускать
Управляемая форма внешней обработки с серверной функцией в Windows. Отдельный учебный кластер; чтение через COM, не через ras.
Подготовка
Только отдельный учебный сервер 1С 8.5 на Windows с установленным и зарегистрированным V85.COMConnector соответствующей разрядности. Не запускайте в рабочем кластере.
Создайте реквизиты формы АдресАгента, ИмяАгента, ПарольАгента, КлючКластера, ИмяАдминистратораКластера, ПарольАдминистратораКластера типа Строка. Поля паролей должны скрывать символы.
АдресАгента — endpoint агента сервера, например 127.0.0.1:1540 на тестовой машине. Это не endpoint ras на 1545.
При пустом КлючКластера код показывает строки имя|компьютер|порт. Скопируйте точную строку нужного учебного кластера в поле и повторите.
Создайте команду ПоказатьАдминистраторовCOM и кнопку. Процедуру и функцию вставьте отдельно в модуль управляемой формы.
Используйте действительные учебные учётные данные агента и кластера. Пустые данные допустимы только там, где администраторы не зарегистрированы.
&НаКлиенте
Процедура ПоказатьАдминистраторовCOM(Команда)
Сообщить(ПрочитатьАдминистраторовCOMНаСервере(
АдресАгента, ИмяАгента, ПарольАгента, КлючКластера,
ИмяАдминистратораКластера, ПарольАдминистратораКластера));
КонецПроцедуры
&НаСервереБезКонтекста
Функция ПрочитатьАдминистраторовCOMНаСервере(АдресАгента, ИмяАгента, ПарольАгента,
КлючКластера, ИмяАдминистратораКластера, ПарольАдминистратораКластера)
Соединитель = Новый COMОбъект("V85.COMConnector");
Агент = Соединитель.ConnectAgent(АдресАгента);
Агент.AuthenticateAgent(ИмяАгента, ПарольАгента);
Кластеры = Агент.GetClusters();
Подходящие = Новый Массив;
Описания = Новый Массив;
Для Каждого Кластер Из Кластеры Цикл
Ключ = СтрШаблон("%1|%2|%3", Кластер.ClusterName,
Кластер.HostName, Кластер.MainPort);
Описания.Добавить(Ключ);
Если НРег(Ключ) = НРег(СокрЛП(КлючКластера)) Тогда
Подходящие.Добавить(Кластер);
КонецЕсли;
КонецЦикла;
Если Не ЗначениеЗаполнено(КлючКластера) Тогда
Возврат СтрСоединить(Описания, Символы.ПС);
КонецЕсли;
Если Подходящие.Количество() <> 1 Тогда
ВызватьИсключение "Нужно выбрать ровно один учебный кластер";
КонецЕсли;
Кластер = Подходящие[0];
Агент.Authenticate(Кластер, ИмяАдминистратораКластера, ПарольАдминистратораКластера);
Администраторы = Агент.GetClusterAdmins(Кластер);
Строки = Новый Массив;
Для Каждого Администратор Из Администраторы Цикл
Строки.Добавить(СтрШаблон("%1; %2; парольная=%3; ОС=%4; пользователь ОС=%5",
Администратор.Name, Администратор.Descr, Администратор.PasswordAuthAllowed,
Администратор.SysAuthAllowed, Администратор.SysUserName));
КонецЦикла;
Если Строки.Количество() = 0 Тогда
Возврат "Администраторы кластера не зарегистрированы";
КонецЕсли;
Возврат СтрСоединить(Строки, Символы.ПС);
КонецФункцииРазбор по шагам
COM-соединитель создаётся в серверном Windows-процессе; ConnectAgent связывает его с агентом сервера.
AuthenticateAgent аутентифицирует администратора центрального сервера.
Кластер выбирается по показанному составному ключу; неоднозначный выбор прекращает выполнение.
Authenticate отдельно проверяет администратора выбранного кластера.
GetClusterAdmins возвращает описания IRegUserInfo; читаем английские свойства Name, Descr и способы аутентификации.
Password доступен только для записи и не включён в вывод. Регистрация, удаление и изменение администраторов не выполняются.
Как проверить результат
При пустом ключе видны доступные кластеры; после выбора — администраторы именно выбранного кластера.
Сравните имена и способы аутентификации с консолью администрирования тестового сервера.
Неверный или неоднозначный ключ даёт исключение до запроса списка администраторов.
Ожидаемый результат
Прочитаны сведения об администраторах учебного кластера через COM без изменения сервера.
На что обратить внимание
COM требует Windows, подходящей разрядности и регистрации компоненты; в Linux этот код не применяется.
Для 8.3 используется соответствующий V83.COMConnector; здесь явно выбран зарегистрированный V85 для 8.5.
Английские свойства этого интерфейса нельзя заменить русскими свойствами объекта ras.
Список содержит сведения кроме паролей; не пытайтесь прочитать Password.
Ошибки подключения, несовместимости версий и аутентификации не подавляются.
Пример не запускался в вашей базе. Перед применением проверьте его в указанном учебном контексте.
Различить администратора агента и администратора своего кластера
GetAgentAdmins требует AuthenticateAgent и возвращает IRegUserInfo центрального сервера. Имя администратора агента не является именем администратора базы или самого кластера.
Где и как запускать
Полный модуль собственной управляемой формы нового локального Windows-стенда 1С 8.5.1.1343. Читаются только выбранный УчебныйКластер85 и подтверждённая УчебнаяБаза85. Здесь COM и BSL не запускались.
Подготовка
Нужен отдельный собственный локальный серверный стенд 1С 8.5.1.1343 на Windows без рабочих баз. Здесь выполняется только авторская подготовка кода: реальное подключение агентом справочника не выполнялось.
Администратор стенда заранее устанавливает сервер и регистрирует V85.COMConnector той же версии и разрядности, что серверный процесс учебной базы. Код не запускает regsvr32, не устанавливает платформу и не открывает COM 8.3 вместо 8.5.
В своём стенде создайте единственный целевой кластер с точным именем УчебныйКластер85 и новую пустую серверную базу с именем УчебнаяБаза85. У описания этой базы задайте точное значение syntax-guide85:owned-com. Не переименовывайте рабочую базу или кластер ради обхода защит.
У собственной учебной конфигурации задайте имя метаданных УчебнаяКонфигурацияСинтаксиса. Серверная функция должна выполняться на той же Windows-машине, что агент сервера и выбранный рабочий процесс: обращения жёстко ограничены 127.0.0.1.
Заведите отдельные действительные учебные учётные данные администратора агента, администратора кластера и администратора базы с правом Администратор. В этих уроках имена и пароли намеренно должны быть непустыми; анонимный режим не используется.
Создайте свою учебную обработку с управляемой формой. Реквизиты: ПортАгента и ПортКластера — Число без дробной части; КлючПроцесса, ИмяАгента, ПарольАгента, ИмяАдминистратораКластера, ПарольАдминистратораКластера, ИмяАдминистратораБазы, ПарольАдминистратораБазы, JSONРезультат — Строка; Занято — Булево, начально Ложь. Длина JSONРезультат 0.
Поля трёх паролей выведите в Режиме пароля и не сохраняйте в настройках формы, истории или файле. JSONРезультат выведите многострочным полем только для просмотра. Добавьте команду ПолучитьУчебныйCOMСнимок с одноимённым клиентским обработчиком.
Вставьте весь приведённый модуль формы, включая обе вспомогательные функции. ПортАгента берите из реальной настройки ragent, ПортКластера — из настройки менеджера кластера. Порт ras сюда не подходит.
Первый раз оставьте КлючПроцесса пустым. Каталог покажет только локальные процессы выбранного учебного кластера. Скопируйте точный ключ порт|PID живого процесса из JSON, повторно введите очищенные пароли и повторите команду. PID не придумывайте; после перезапуска процесса получите каталог заново.
Для диагностики соединений откройте одно или два своих клиентских окна УчебнаяБаза85 и выполните обычные учебные действия, например собственный константный запрос. Не создавайте нагрузку на рабочем сервере; измеряемые числа зависят от реальных действий.
Снимок содержит только выбранные поля, не целые COM-объекты. Пароль СУБД, код разрешения входа, параметр блокировки и строка внешнего управления сеансами выводятся только как признаки наличия. Наличие строки не доказывает её корректность или доступность сервиса.
Если вы сами запустите урок, произойдут административные обращения к своему локальному агенту и рабочему процессу. Настройки не меняются, сеансы не завершаются, база не создаётся и не удаляется. Здесь запуск в 1С и подключение не проверялись.
&НаКлиенте
Процедура ПолучитьУчебныйCOMСнимок(Команда)
Если Занято Тогда
Возврат;
КонецЕсли;
Занято = Истина;
Попытка
JSONРезультат = УчебныйCOMСнимокНаСервере(ПортАгента, ПортКластера, КлючПроцесса,
ИмяАгента, ПарольАгента, ИмяАдминистратораКластера, ПарольАдминистратораКластера,
ИмяАдминистратораБазы, ПарольАдминистратораБазы);
Исключение
JSONРезультат = "Снимок не получен. Проверьте собственный Windows-стенд, COM 8.5, разрядность, порты, ключ процесса, учебные имена и права. Сырую ошибку с учётными данными не публикуйте.";
КонецПопытки;
ПарольАгента = "";
ПарольАдминистратораКластера = "";
ПарольАдминистратораБазы = "";
Занято = Ложь;
КонецПроцедуры
&НаСервереБезКонтекста
Функция УчебныйCOMСнимокНаСервере(ПортАгента, ПортКластера, КлючПроцесса,
ИмяАгента, ПарольАгента, ИмяАдминистратораКластера, ПарольАдминистратораКластера,
ИмяАдминистратораБазы, ПарольАдминистратораБазы)
Система = Новый СистемнаяИнформация;
Если Система.ТипПлатформы <> ТипПлатформы.Windows_x86
И Система.ТипПлатформы <> ТипПлатформы.Windows_x86_64 Тогда
ВызватьИсключение "COM-урок требует серверного выполнения на Windows";
КонецЕсли;
Порты = Новый Массив;
Порты.Добавить(ПортАгента);
Порты.Добавить(ПортКластера);
Для Каждого Порт Из Порты Цикл
Если ТипЗнч(Порт) <> Тип("Число") Тогда
ВызватьИсключение "Порты должны быть числами";
КонецЕсли;
Если Порт <> Цел(Порт) ИЛИ Порт < 1 ИЛИ Порт > 65535 Тогда
ВызватьИсключение "Недопустимый порт локального стенда";
КонецЕсли;
КонецЦикла;
Если ТипЗнч(КлючПроцесса) <> Тип("Строка") Тогда
ВызватьИсключение "Ключ процесса должен быть строкой";
КонецЕсли;
УчётныеДанные = Новый Структура;
УчётныеДанные.Вставить("ИмяАгента", ИмяАгента);
УчётныеДанные.Вставить("ПарольАгента", ПарольАгента);
УчётныеДанные.Вставить("ИмяКластера", ИмяАдминистратораКластера);
УчётныеДанные.Вставить("ПарольКластера", ПарольАдминистратораКластера);
УчётныеДанные.Вставить("ИмяБазы", ИмяАдминистратораБазы);
УчётныеДанные.Вставить("ПарольБазы", ПарольАдминистратораБазы);
Для Каждого Поле Из УчётныеДанные Цикл
Если ТипЗнч(Поле.Значение) <> Тип("Строка") Тогда
ВызватьИсключение "Учебные учётные данные должны быть строками";
КонецЕсли;
Если ПустаяСтрока(Поле.Значение) Тогда
ВызватьИсключение "Введите все три непустые учебные пары учётных данных";
КонецЕсли;
КонецЦикла;
ЛокальноеИмя = НРег(ИмяКомпьютера());
АдресАгента = "tcp://127.0.0.1:" + Формат(ПортАгента, "ЧГ=0");
Соединитель = Новый COMОбъект("V85.COMConnector");
Агент = Соединитель.ConnectAgent(АдресАгента);
Если Агент.ConnectionString <> АдресАгента Тогда
ВызватьИсключение "Не совпала строка выбранного локального подключения";
КонецЕсли;
Агент.AuthenticateAgent(ИмяАгента, ПарольАгента);
Кластер = Неопределено;
СовпаденийКластера = 0;
Для Каждого Найденный Из Агент.GetClusters() Цикл
Если Найденный.ClusterName = "УчебныйКластер85"
И УчебныйЛокальныйУзел(Найденный.HostName, ЛокальноеИмя)
И Найденный.MainPort = ПортКластера Тогда
Кластер = Найденный;
СовпаденийКластера = СовпаденийКластера + 1;
КонецЕсли;
КонецЦикла;
Если СовпаденийКластера <> 1 Тогда
ВызватьИсключение "Нужен единственный собственный локальный УчебныйКластер85 с указанным портом";
КонецЕсли;
Агент.Authenticate(Кластер, ИмяАдминистратораКластера, ПарольАдминистратораКластера);
КраткаяБаза = Неопределено;
СовпаденийБазы = 0;
Для Каждого НайденнаяБаза Из Агент.GetInfoBases(Кластер) Цикл
Если НайденнаяБаза.Name = "УчебнаяБаза85" И НайденнаяБаза.Descr = "syntax-guide85:owned-com" Тогда
КраткаяБаза = НайденнаяБаза;
СовпаденийБазы = СовпаденийБазы + 1;
КонецЕсли;
КонецЦикла;
Если СовпаденийБазы <> 1 Тогда
ВызватьИсключение "Не найдена единственная собственная база с точным маркером описания";
КонецЕсли;
Каталог = Новый Массив;
Процесс = Неопределено;
СовпаденийПроцесса = 0;
Для Каждого НайденныйПроцесс Из Агент.GetWorkingProcesses(Кластер) Цикл
Если УчебныйЛокальныйУзел(НайденныйПроцесс.HostName, ЛокальноеИмя)
И НайденныйПроцесс.MainPort >= 1 И НайденныйПроцесс.MainPort <= 65535
И НайденныйПроцесс.MainPort = Цел(НайденныйПроцесс.MainPort)
И НЕ ПустаяСтрока(НайденныйПроцесс.PID) Тогда
Ключ = Формат(НайденныйПроцесс.MainPort, "ЧГ=0") + "|" + НайденныйПроцесс.PID;
Каталог.Добавить(Новый Структура("Ключ,Хост", Ключ, НайденныйПроцесс.HostName));
Если Ключ = КлючПроцесса Тогда
Процесс = НайденныйПроцесс;
СовпаденийПроцесса = СовпаденийПроцесса + 1;
КонецЕсли;
КонецЕсли;
КонецЦикла;
Если ПустаяСтрока(КлючПроцесса) Тогда
Возврат СериализоватьСвойСнимок(Новый Структура("УчебныеПроцессы", Каталог));
КонецЕсли;
Если СовпаденийПроцесса <> 1 Тогда
ВызватьИсключение "Нужен один живой локальный процесс с ключом из своего каталога";
КонецЕсли;
РабочееСоединение = Соединитель.ConnectWorkingProcess("tcp://127.0.0.1:" + Формат(Процесс.MainPort, "ЧГ=0"));
СовпаденийПолнойБазы = 0;
Для Каждого НайденнаяПолнаяБаза Из РабочееСоединение.GetInfoBases() Цикл
Если НайденнаяПолнаяБаза.Name = КраткаяБаза.Name И НайденнаяПолнаяБаза.Descr = КраткаяБаза.Descr Тогда
СовпаденийПолнойБазы = СовпаденийПолнойБазы + 1;
КонецЕсли;
КонецЦикла;
Если СовпаденийПолнойБазы <> 1 Тогда
ВызватьИсключение "Рабочий процесс не подтвердил свою учебную базу";
КонецЕсли;
РабочееСоединение.AddAuthentication(ИмяАдминистратораБазы, ПарольАдминистратораБазы);
База = Неопределено;
СовпаденийПослеВхода = 0;
Для Каждого НайденнаяПослеВхода Из РабочееСоединение.GetInfoBases() Цикл
Если НайденнаяПослеВхода.Name = "УчебнаяБаза85" И НайденнаяПослеВхода.Descr = "syntax-guide85:owned-com" Тогда
База = НайденнаяПослеВхода;
СовпаденийПослеВхода = СовпаденийПослеВхода + 1;
КонецЕсли;
КонецЦикла;
Если СовпаденийПослеВхода <> 1 Тогда
ВызватьИсключение "После аутентификации изменился выбор учебной базы";
КонецЕсли;
Снимок = Новый Структура;
Снимок.Вставить("База", База.Name);
Снимок.Вставить("ПроцессPID", Процесс.PID);
Снимок.Вставить("ПортПроцесса", Процесс.MainPort);
Администраторы = Новый Массив;
Для Каждого Администратор Из Агент.GetAgentAdmins() Цикл
СтрокаАдминистратора = Новый Структура;
СтрокаАдминистратора.Вставить("Name", Администратор.Name);
СтрокаАдминистратора.Вставить("Descr", Администратор.Descr);
СтрокаАдминистратора.Вставить("PasswordAuthAllowed", Администратор.PasswordAuthAllowed);
СтрокаАдминистратора.Вставить("SysAuthAllowed", Администратор.SysAuthAllowed);
СтрокаАдминистратора.Вставить("SysUserName", Администратор.SysUserName);
СтрокаАдминистратора.Вставить("ИспользованноеУчебноеИмя", Администратор.Name = ИмяАгента);
Администраторы.Добавить(СтрокаАдминистратора);
КонецЦикла;
Снимок.Вставить("АдминистраторыАгента", Администраторы);
Снимок.Вставить("КоличествоАдминистраторовАгента", Администраторы.Количество());
Возврат СериализоватьСвойСнимок(Снимок);
КонецФункции
&НаСервереБезКонтекста
Функция СериализоватьСвойСнимок(Снимок)
Писатель = Новый ЗаписьJSON;
Писатель.УстановитьСтроку();
ЗаписатьJSON(Писатель, Снимок);
Возврат Писатель.Закрыть();
КонецФункции
&НаСервереБезКонтекста
Функция УчебныйЛокальныйУзел(ИмяУзла, ЛокальноеИмя)
Возврат НРег(ИмяУзла) = ЛокальноеИмя ИЛИ НРег(ИмяУзла) = "localhost" ИЛИ ИмяУзла = "127.0.0.1";
КонецФункции
Разбор по шагам
Проверить имя учебной конфигурации, типы портов и реквизитов до COM. Порты целые в диапазоне 1..65535; секреты не сериализуются.
ConnectAgent обращается только к 127.0.0.1. ConnectionString должна совпасть с построенной строкой без паролей. COM AuthenticateAgent принимает имя, пароль, в отличие от русскоязычного API ras.
Выбрать УчебныйКластер85 по точному имени, локальному хосту и порту менеджера. Отсутствие или неоднозначность не заменяются выбором первого элемента.
Проверить краткое описание УчебнаяБаза85 и точный маркер. Каталог живых локальных процессов позволяет взять настоящий порт|PID, а не подставить 1545 или придуманный PID.
ConnectWorkingProcess использует найденный динамический порт процесса, не порт агента или ras. До аутентификации базы читаются только Name и Descr.
AddAuthentication принимает только имя администратора базы и пароль, не дополнительный аргумент с именем базы. После него заново выбрать свою базу; полные поля читаются только далее.
В конце показать явно перечисленные скалярные поля JSON. После успеха или ошибки очищаются все три пароля и снимается флаг Занято.
Сначала AuthenticateAgent с собственной непустой учебной парой. Корневой модуль также отдельно аутентифицирует кластер и базу.
GetAgentAdmins принимает ноль аргументов. Не передавать туда Кластер или имя своей базы.
Показать разрешённые способы аутентификации и учётное имя ОС, не читать свойство Password.
Сравнить Name с фактически использованным логином агента; это не попытка назначения прав другому администратору.
Список отражает свой отдельный центральный сервер. Ничего не регистрируется и не удаляется.
После результата/ошибки поля трёх паролей формы очищаются. Стандартная парольная аутентификация и аутентификация ОС не смешиваются.
Как проверить результат
Имена и способы аутентификации совпадают с собственным агентом в консоли, не со списком администраторов базы.
При корректной выбранной учётной записи видно соответствующее Name, секретов в JSON нет.
Количество администраторов показано фактически; пользователь не создаётся ради непустого результата.
Ожидаемый результат
Получен безопасный список собственных администраторов центрального сервера с объяснением отдельной области аутентификации.
На что обратить внимание
COM здесь работает в серверном Windows-процессе. Loopback означает эту машину, не компьютер тонкого клиента; Linux и незарегистрированный соединитель этому уроку не соответствуют.
Присутствие учебных имён и маркера не заменяет права доступа. Не запускайте в рабочем кластере; отделите стенд от production.
Порт агента, порт менеджера кластера, порт ras и динамический порт рабочего процесса — разные значения.
COMSafeArray перечисляется циклом Для Каждого. Это не Массив 1С и не список UUID ras; не приписывайте ему методы или свойства другой коллекции.
Снимки и выбранные процессы могут устареть между запросами. После перезапуска повторите каталог; не пытайтесь автоматически завершить мешающий процесс.
Сырые COM-ошибки могут раскрывать чувствительные сведения. Разбирайте подготовку в отладчике своего стенда, не добавляйте ОписаниеОшибки в публичный JSON.
Пароль IRegUserInfo доступен только для записи. Пытаться читать его или сериализовать объект целиком нельзя.
Наличие записи не является матрицей эффективных прав пользователя информационной базы.
Этот урок намеренно не включает анонимный вход "", "": используйте заранее заведённого собственного администратора.
Пример не запускался в вашей базе. Перед применением проверьте его в указанном учебном контексте.