подскажите какой утилитой(обработкой) можно увидеть количество занятых ПРОГРАММНЫХ лицензий, если алладин не показывает

я на какой-то ключ по хттп ходил спрашивать. вроде тупо страницу парсил. так себе вариант, но можно порыться в бардачке

(1) а ключ был аппаратный

на инфостарте есть обработка, или у гилева есть сервис

v8: Многопользовательская лицензия 1с (программная защита) пост 11

(4) более года с 11 поста прошло
все осталось без изменений???

(5) -> (3)

http://infostart.ru/public/160582/

(6) гилев ругается, что у него украли

(7) я не брал

Hasp License Manager Monitor
+ обработка, которая парсит его файл вывода (задается в командной строке) и выводит результат в отчет.

(9) она же только для ключей

(6) блин. придется начать серф на инфостарте

(11) может этого будет достаточно?

http://www.gilev.ru/services/online

(12) да я подал там заявку на регистрацию. я так понял там только завтра будет ответ.

оо. пока писал пришло

(12) По безопасности на сервере не проходит блин... придется инфостартовскую как-то мучить. говорят он у гилева стибрена.

В свое время озадачился вопросом, получилось это:

Функция ПолучитьДанные()
   ТЗ = Новый ТаблицаЗначений;
   ТЗ.Колонки.Добавить("ТипЛицензии");
   ТЗ.Колонки.Добавить("ИсточникЛицензии");
   ТЗ.Колонки.Добавить("ФайлЛицензии");
   ТЗ.Колонки.Добавить("КемПолучена");
   ТЗ.Колонки.Добавить("ВсегоЛицензий");
   ТЗ.Колонки.Добавить("Пользователь");
   ТЗ.Колонки.Добавить("Приложение");
   ТЗ.Колонки.Добавить("РабочаяСтанция");
   
   COMСоединитель = Новый COMОбъект("V82.COMConnector");
   Агент = COMСоединитель.ConnectAgent("xxxxxxx");
   Кластеры = Агент.GetClusters();
   Для каждого Кластер из Кластеры цикл
       Агент.Authenticate(Кластер, "", "");
       Сессии = Агент.GetSessions(Кластер);
       Для каждого Сеанс из Сессии цикл
           Стр = ТЗ.Добавить();
           
           Стр.Пользователь = Сеанс.UserName;
           Стр.РабочаяСтанция = Сеанс.Host;
           Стр.Приложение = Сеанс.AppID;
           
           Лиц = Сеанс.License;
           
           Если Лиц = Неопределено тогда
               Стр.ТипЛицензии = " Без лицензии";
               Стр.ИсточникЛицензии = "";
               Стр.ВсегоЛицензий = 0;
               Стр.КемПолучена = "";
           Иначе
               Стр.КемПолучена = ?(Лиц.IssuedByServer, "Сервер", "Клиент");
               Если Лиц.LicenseType = 0 тогда
                   Стр.ТипЛицензии = "Программная";
                   Стр.ИсточникЛицензии = Лиц.Series;
                   Стр.ФайлЛицензии = Лиц.FileName;
                   Стр.ВсегоЛицензий = Лиц.MaxUsersAll;
               Иначе
                   Стр.ТипЛицензии = "Аппаратная";
                   Стр.ИсточникЛицензии = Лиц.Series;
                   Стр.ФайлЛицензии = "";
                   Стр.ВсегоЛицензий = Лиц.MaxUsersCur;
               КонецЕсли;
           КонецЕсли;
       КонецЦикла;
   КонецЦикла;
   Агент = Неопределено;
   COMСоединитель = Неопределено;
   ТЗ.Сортировать("Приложение, Пользователь");
   Возврат ТЗ;
КонецФункции