()Конечно - если захотеть - можно много чего допилить. Тут придётся допиливать около 95% оставшегося функционала. И около 25% этого функционала будет действительно из категории "самое нужное", а просмотр лицензий я бы к этой категории не стал бы относить (хотя анализ лицензий - это тоже вещь полезная, но скорее как хорошее дополнение к основному функционалу), полезность вашей обработки в том, что она (как бы в нагрузку) умеет ещё сеансы прерывать! Но интерфейс для этого не самый удачный, на мой взгляд! Только не подумайте, что я хочу похаить Вашу разработку - эта вещь тоже полезная! Но гораздо полезнее - когда весь функционал доступен в комплексе и лаконично представлен в интерфейсе пользовательской юзабилити.
А на 8.3.14 получить используемые по сессиям лицензии можно гораздо проще
адм = Новый АдминистрированиеСервера(Адрес, Порт);
Если Логин = неопределено Тогда //Доменная авторизация
адм.ВыполнитьАутентификацию();
Иначе
адм.ВыполнитьАутентификацию(Логин, Пароль);
КонецЕсли;
Кластеры = адм.ПолучитьКластеры();
Для каждого Кластер из Кластеры Цикл
Если Логин = неопределено Тогда //Доменная авторизация
Кластер.ВыполнитьАутентификацию();
Иначе
Кластер.ВыполнитьАутентификацию(Логин, Пароль);
КонецЕсли;
Сеансы = Кластер.ПолучитьСеансы();
Для каждого Сеанс из Сеансы Цикл
Для каждого Лицензия из Сенас.Лицензии Цикл
//Тут что-то делаем с данными о лицензии
КонецЦикла;
КонецЦикла;
КонецЦикла;
Показать
Данные лицензий содержат:
АдресСервера ""
ИдентификаторПроцесса "26252"
ИмяФайла ""
КраткоеПредставление "Клиент, ORGL8 Сет 100"
МаксимальноеКоличествоПользователей 100
МаксимальноеКоличествоПользователейПрограммнойЛицензии 100
ПодробноеПредставление "Клиент, 26252, ORGL8 Сетевой 100"
ПолученаСервером Ложь
ПортСервера 0
ПрограммнаяЛицензия Ложь
СерияКлюча "ORGL8"
СетевойКлюч Истина
Конечно, для утилиты RING пока нет такого API - но для ней действительно нужен свой отдельный продвинутый GUI - и, в первую очередь, не столько на просмотр, сколько на управление (взаимодействие с сервером лицензирования 1С).
