АдминистрированиеСеанс.ПроцессорноеВремяЗа5Мин

Отличить процессорное время от длительности ожидания

Три процессорных показателя заданы в миллисекундах. По ним нельзя объявить загрузку всего процессора или число занятых ядер.

Подготовка

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 не подходит.";
    КонецЕсли;
    Строки = Новый Массив;
    Строки.Добавить("CPU с начала, мс: " + Строка(Сеанс.ПроцессорноеВремяВсего));
    Строки.Добавить("CPU за 5 минут, мс: " + Строка(Сеанс.ПроцессорноеВремяЗа5Мин));
    Строки.Добавить("CPU текущего вызова, мс: " + Строка(Сеанс.ПроцессорноеВремяТекущее));
    Строки.Добавить("Длительность текущего вызова, мс: " + Строка(Сеанс.ДлительностьВызововТекущее));
    Возврат СтрСоединить(Строки, Символы.ПС);
КонецФункции

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

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

2. Накопленный CPU, окно 5 минут и текущий вызов относятся к разным периодам.

3. Показываем время текущего вызова рядом с CPU, но не вычисляем неподтверждённый процент загрузки машины.

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

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

2. У простаивающего сеанса текущие показатели могут быть 0; это не ошибка API и не доказательство отсутствия прошлой работы.

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

Получена статистика процессорного времени выбранного сеанса.

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

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

2. Ожидание СУБД или сети может увеличивать длительность без такого же CPU.

3. Для оценки загрузки системы нужны согласованный интервал и сведения о процессах/ядрах, которых этот пример не собирает.

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