Получает массив рабочих серверов, зарегистрированных в кластере.
Синтаксис
GetWorkingServers(<Кластер>)Полное описание, параметры и ограничения
Соединение с агентом сервера.GetWorkingServers (IServerAgentConnection.GetWorkingServers)
Соединение с агентом сервера (IServerAgentConnection)
GetWorkingServers (GetWorkingServers)
Доступен, начиная с версии 8.1.
Синтаксис:
GetWorkingServers(<Кластер>)
Параметры:
<Кластер> (обязательный)
Тип: Кластер серверов.
Кластер, для которого должен быть получен список рабочих серверов.
Возвращаемое значение:
Тип: COMSafeArray.
Массив рабочих серверов, зарегистрированных в кластере. Каждый сервер является объектом с интерфейсом Рабочий сервер.
Описание:
Получает массив рабочих серверов, зарегистрированных в кластере.
Доступность:
Интеграция.
Использование в версии:
Доступен, начиная с версии 8.1.
Методическая информация
Практические примеры
Различить настройки памяти рабочего сервера и текущее потребление
Показаны настоящие лимиты узла и разные значения 0/-1. Они не заменяются условным общим значением «без ограничений» и не принимаются за текущую память процесса.
Где и как запускать
Полный модуль управляемой формы собственной пустой учебной базы на отдельном локальном Windows-стенде 8.5.1.1343. COM-вызовы выполняются только при самостоятельном запуске пользователем; здесь не запускались.
Подготовка
Нужен отдельный собственный локальный серверный стенд 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);
Серверы = Новый Массив;
Для Каждого Рабочий Из Агент.GetWorkingServers(Кластер) Цикл
Если НЕ УчебныйЛокальныйУзел(Рабочий.HostName, ЛокальноеИмя) Тогда
Продолжить;
КонецЕсли;
СтрокаСервера = Новый Структура;
СтрокаСервера.Вставить("Name", Рабочий.Name);
СтрокаСервера.Вставить("HostName", Рабочий.HostName);
СтрокаСервера.Вставить("SafeCallMemoryLimit", Рабочий.SafeCallMemoryLimit);
СтрокаСервера.Вставить("SafeWorkingProcessesMemoryLimit", Рабочий.SafeWorkingProcessesMemoryLimit);
СтрокаСервера.Вставить("CriticalProcessesTotalMemory", Рабочий.CriticalProcessesTotalMemory);
СтрокаСервера.Вставить("TemporaryAllowedProcessesTotalMemory", Рабочий.TemporaryAllowedProcessesTotalMemory);
СтрокаСервера.Вставить("TemporaryAllowedProcessesTotalMemoryTimeLimit", Строка(Рабочий.TemporaryAllowedProcessesTotalMemoryTimeLimit));
СтрокаСервера.Вставить("WorkingProcessMemoryLimit", Рабочий.WorkingProcessMemoryLimit);
Если Рабочий.SafeCallMemoryLimit = -1 Тогда
СтрокаСервера.Вставить("ПравилоВызова", "При достигнутом максимальном объёме памяти любой вызов считается опасным");
ИначеЕсли Рабочий.SafeCallMemoryLimit = 0 Тогда
СтрокаСервера.Вставить("ПравилоВызова", "Автоматически 5% максимального объёма памяти рабочих процессов");
Иначе
СтрокаСервера.Вставить("ПравилоВызова", "Явный безопасный расход за вызов в байтах");
КонецЕсли;
СтрокаСервера.Вставить("МаксимумРабочихНеОграничен", Рабочий.SafeWorkingProcessesMemoryLimit = -1);
СтрокаСервера.Вставить("КритическийНеОграничен", Рабочий.CriticalProcessesTotalMemory = -1);
СтрокаСервера.Вставить("ВременныйНеОграничен", Рабочий.TemporaryAllowedProcessesTotalMemory = -1);
Если Рабочий.SafeCallMemoryLimit > 0 Тогда
СтрокаСервера.Вставить("БезопасноЗаВызовMiB", Рабочий.SafeCallMemoryLimit / 1024 / 1024);
КонецЕсли;
Серверы.Добавить(СтрокаСервера);
КонецЦикла;
Снимок.Вставить("ЛокальныеРабочиеСерверы", Серверы);
Снимок.Вставить("КоличествоЛокальныхСерверов", Серверы.Количество());
Возврат СериализоватьСвойСнимок(Снимок);
КонецФункции
&НаСервереБезКонтекста
Функция СериализоватьСвойСнимок(Снимок)
Писатель = Новый Запись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. После успеха или ошибки очищаются все три пароля и снимается флаг Занято.
Прочитать настройки памяти фактического локального сервера. Только SafeCallMemoryLimit с явно документированными байтами преобразовать в MiB.
Для SafeCallMemoryLimit=-1 любой вызов опасен при достигнутом максимальном объёме памяти; это не неограниченный безопасный вызов.
Отдельно показать -1 у максимального объёма рабочих процессов, критического и временно допустимого объёмов: там смысл — соответствующий объём не ограничен.
Нулевой максимум рабочих процессов означает автоматические 80% ОЗУ, нулевой критический — 95%, нулевой временный — 80%; это разные настройки, не текущее измерение ОЗУ.
WorkingProcessMemoryLimit ограничивает запуск новых рабочих процессов при превышении суммарной памяти. Не путать с памятью одного соединения.
Период временного превышения вывести в строковом представлении: в этой странице справки не указан тип/единица, не выдумывать секунды или миллисекунды.
Снимок не вызывает перезапуск, не завершает процессы и не выбирает новые лимиты для реального сервера.
Как проверить результат
Поля совпадают с настройками своего рабочего сервера в консоли. Значения 0 и -1 показываются как есть.
ПравилоВызова зависит именно от SafeCallMemoryLimit; отдельные признаки отсутствия ограничения зависят от своих полей.
БезопасноЗаВызовMiB присутствует только для положительного числа. Никакие остальные единицы автоматически не переименованы.
Ожидаемый результат
На действительных настройках разобраны разные пороги и их смысл без опасного автоматического исправления.
На что обратить внимание
COM здесь работает в серверном Windows-процессе. Loopback означает эту машину, не компьютер тонкого клиента; Linux и незарегистрированный соединитель этому уроку не соответствуют.
Присутствие учебных имён и маркера не заменяет права доступа. Не запускайте в рабочем кластере; отделите стенд от production.
Порт агента, порт менеджера кластера, порт ras и динамический порт рабочего процесса — разные значения.
COMSafeArray перечисляется циклом Для Каждого. Это не Массив 1С и не список UUID ras; не приписывайте ему методы или свойства другой коллекции.
Снимки и выбранные процессы могут устареть между запросами. После перезапуска повторите каталог; не пытайтесь автоматически завершить мешающий процесс.
Сырые COM-ошибки могут раскрывать чувствительные сведения. Разбирайте подготовку в отладчике своего стенда, не добавляйте ОписаниеОшибки в публичный JSON.
Нельзя складывать лимиты и объявлять сумму потреблением памяти. Это настройки разных механизмов.
Превышение критического/временно допустимого объёма при соответствующих условиях может привести к завершению процессов, но код не проверяет и не инициирует такое событие.
Свойство с отсутствующим в первичной странице типом не следует объявлять числовыми секундами по сходству с русским интерфейсом ras.
Пример не запускался в вашей базе. Перед применением проверьте его в указанном учебном контексте.
Сопоставить порты, роли и расписание своего рабочего сервера через COM
GetWorkingServers возвращает IRegServerInfo. Это настройки узла, а не IWorkingProcessInfo живого процесса и не объект ras с русскими свойствами.
Где и как запускать
Полный модуль управляемой формы собственной пустой учебной базы на отдельном локальном Windows-стенде 8.5.1.1343. COM-вызовы выполняются только при самостоятельном запуске пользователем; здесь не запускались.
Подготовка
Нужен отдельный собственный локальный серверный стенд 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);
Серверы = Новый Массив;
Для Каждого Рабочий Из Агент.GetWorkingServers(Кластер) Цикл
Если НЕ УчебныйЛокальныйУзел(Рабочий.HostName, ЛокальноеИмя) Тогда
Продолжить;
КонецЕсли;
СтрокаСервера = Новый Структура;
СтрокаСервера.Вставить("Name", Рабочий.Name);
СтрокаСервера.Вставить("HostName", Рабочий.HostName);
СтрокаСервера.Вставить("MainPort", Рабочий.MainPort);
СтрокаСервера.Вставить("ClusterMainPort", Рабочий.ClusterMainPort);
СтрокаСервера.Вставить("MainServer", Рабочий.MainServer);
СтрокаСервера.Вставить("DedicatedManagers", Рабочий.DedicatedManagers);
СтрокаСервера.Вставить("ConnectionsPerWorkingProcessLimit", Рабочий.ConnectionsPerWorkingProcessLimit);
СтрокаСервера.Вставить("InfoBasesPerWorkingProcessLimit", Рабочий.InfoBasesPerWorkingProcessLimit);
СтрокаСервера.Вставить("RestartSchedule", Рабочий.RestartSchedule);
СтрокаСервера.Вставить("ServicePrincipalName", Рабочий.ServicePrincipalName);
СтрокаСервера.Вставить("СовпадаетПортАгента", Рабочий.MainPort = ПортАгента);
СтрокаСервера.Вставить("ЕстьSPN", НЕ ПустаяСтрока(Рабочий.ServicePrincipalName));
СтрокаСервера.Вставить("ЕстьРасписаниеУзла", НЕ ПустаяСтрока(Рабочий.RestartSchedule));
СтрокаСервера.Вставить("ЕстьРасписаниеКластера", НЕ ПустаяСтрока(Кластер.RestartSchedule));
Если НЕ ПустаяСтрока(Рабочий.RestartSchedule) Тогда
СтрокаСервера.Вставить("ИсточникРасписания", "Рабочий сервер: имеет приоритет над кластером");
ИначеЕсли НЕ ПустаяСтрока(Кластер.RestartSchedule) Тогда
СтрокаСервера.Вставить("ИсточникРасписания", "Кластер: у рабочего сервера расписание пусто");
Иначе
СтрокаСервера.Вставить("ИсточникРасписания", "Оба расписания пусты");
КонецЕсли;
Серверы.Добавить(СтрокаСервера);
КонецЦикла;
Снимок.Вставить("ЛокальныеРабочиеСерверы", Серверы);
Снимок.Вставить("КоличествоЛокальныхСерверов", Серверы.Количество());
Возврат СериализоватьСвойСнимок(Снимок);
КонецФункции
&НаСервереБезКонтекста
Функция СериализоватьСвойСнимок(Снимок)
Писатель = Новый Запись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. После успеха или ошибки очищаются все три пароля и снимается флаг Занято.
Прочитать только локальные IRegServerInfo выбранного кластера, не сериализовать его целиком.
MainPort — порт агента рабочего сервера, ClusterMainPort — порт менеджера кластера, а уже выбранный Процесс.MainPort — другой динамический порт.
MainServer указывает центральный сервер. DedicatedManagers задаёт выделенные менеджеры под сервисы; это не число процессов, реально запущенных сейчас.
Два лимита распределения прочитать отдельно: баз на процесс и соединений на процесс. Они не являются количеством текущих соединений.
Показать реальное расписание и сравнить приоритет: непустое расписание узла имеет приоритет над расписанием кластера. Не применять и не исполнять cron.
SPN относится к Kerberos/аутентификации ОС, не к SQL-паролю. Его наличие само по себе не проверяет Kerberos.
Как проверить результат
У одного локального узла появится одна строка с его реальными именем, портами и флагами; сверить с консолью собственного стенда.
ИсточникРасписания соответствует двум прочитанным строкам, ничего не записывает. Не ожидайте заранее придуманное расписание.
Динамический порт в корне снимка взят из каталога рабочего процесса, не из MainPort этого узла.
Ожидаемый результат
Получена читаемая карта портов и политик узла с проверенным происхождением каждого поля.
На что обратить внимание
COM здесь работает в серверном Windows-процессе. Loopback означает эту машину, не компьютер тонкого клиента; Linux и незарегистрированный соединитель этому уроку не соответствуют.
Присутствие учебных имён и маркера не заменяет права доступа. Не запускайте в рабочем кластере; отделите стенд от production.
Порт агента, порт менеджера кластера, порт ras и динамический порт рабочего процесса — разные значения.
COMSafeArray перечисляется циклом Для Каждого. Это не Массив 1С и не список UUID ras; не приписывайте ему методы или свойства другой коллекции.
Снимки и выбранные процессы могут устареть между запросами. После перезапуска повторите каталог; не пытайтесь автоматически завершить мешающий процесс.
Сырые COM-ошибки могут раскрывать чувствительные сведения. Разбирайте подготовку в отладчике своего стенда, не добавляйте ОписаниеОшибки в публичный JSON.
В установленной справке ClusterMainPort содержит формулировку MainPort=Истина, хотя MainPort имеет тип Число. Не превращайте номер порта в Булево; выводите порт и реальный MainServer отдельно.
Расположение менеджеров и реальное число процессов не доказываются одним флагом DedicatedManagers.
Формат расписания — пять полей cron без колонки команды. Код ничего не запускает по этому расписанию.
Пример не запускался в вашей базе. Перед применением проверьте его в указанном учебном контексте.