АдминистрированиеРабочийПроцесс.Порт

Отличить UUID рабочего процесса от PID операционной системы

Читаем конкретный процесс по UUID из массива кластера. PID — строковый идентификатор ОС, порт выбирается динамически и не равен порту ras.

Подготовка

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. После выбора учебного кластера оставьте UUID процесса пустым: получите список UUID/PID. Вставьте UUID нужного процесса, не PID Windows, затем повторите.

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

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

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

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

1. Сначала выбираем кластер по его UUID; затем получаем зарегистрированные рабочие процессы.

2. При пустом поле процесса выводим список UUID/PID, но не выбираем случайный первый процесс.

3. Выбранный UUID сравниваем без учёта регистра и внешних пробелов. Отсутствующий UUID приводит к исключению до чтения свойств.

4. Динамический порт rphost отличаем от порта агента, главного менеджера и ras.

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

1. Выведенный UUID совпадает с введённым; PID и порт являются фактическими значениями выбранного процесса.

2. Подставьте UUID, отсутствующий в списке: возникнет ошибка выбора, другой процесс не подставляется.

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

Получен адресный паспорт конкретного учебного рабочего процесса.

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

1. PID может повторно использоваться ОС после завершения процесса: это не вечный идентификатор объекта кластера.

2. Не выполняйте kill по PID из этого урока и не отправляйте клиентские запросы на порт ras.

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