АдминистрированиеСеанс.IPАдресКлиента

Разобрать клиент, пользователя, язык и используемые лицензии

Показываем сведения только выбранного учебного сеанса. РазделениеДанных — строковое представление разделителей, не список прав и не диагноз RLS.

Подготовка

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

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

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

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

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

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

7. Дополнительно добавьте на форму ИдентификаторУчебнойБазы и ИдентификаторУчебногоСеанса (Строка). Сначала оставьте их пустыми: после выбора учебного кластера получите пары UUID ИБ/сеанса. Выберите сеанс своей отдельной учебной базы, не рабочий.

8. Административные счётчики меняются во время чтения. Контроль состоит в сравнении с консолью того же учебного кластера, а не в требовании заранее известного числа пользователей, памяти или вызовов.

9. Создайте команду ПоказатьКлиентСеанса, её кнопку и одноимённый клиентский обработчик из кода.

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

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

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

1. Аутентифицируемся в явно выбранном учебном кластере; сеанс выбираем одновременно по UUID ИБ и UUID сеанса.

2. ИмяПользователя относится к аутентифицированному пользователю ИБ, не обязательно к учётной записи Windows.

3. Компьютер и IP помогают сопоставить собственный клиент; язык интерфейса отделяем от параметров регионального форматирования.

4. Лицензии только считаем: PIN, регистрационные данные и секреты не выгружаем.

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

1. Сопоставьте пользователя, приложение и компьютер с отдельным учебным клиентом.

2. Количество Лицензии — фактический размер массива сведений, не обещанное количество свободных лицензий сервера.

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

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

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

1. Это снимок административной диагностики, не замер внутри прикладной транзакции и не команда удаления сеансов.

2. IP может относиться к промежуточному узлу; он сам по себе не доказывает физического человека.

3. Нельзя делать вывод о разрешённом доступе к документам только по РазделениеДанных или языку.

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