Необходимо предоставить только просмотр списка сеансов по всем информационным базам на 1С Сервере для главного бухгалтера.

Платформа 8.3.10.2168

Вроде объявление о работе, тут платные.

А зачем главбуху заниматься работой сисадмина?

Она хочет контролировать количество используемых лицензий. Поэтому нужен только просмотр, без возможности добавлять, удалять базы с сервера, завершать сеансы. Нужен только просмотр!

Пусть активные сеансы смотрит через 1С

Сколько платят за решение вопроса?

(3) Ей это не надо

(4) нужно все базы сразу (7 баз).

(3) только после того, как программист будет контролировать сдачу отчетности, корректность учета можно разрешить бухгалтеру смотреть лицензии

все понятно, решения нет.

Я так понял в консоли сервера настройки прав доступа нет.

(9) есть. 5 тыс. руб

(11) Демо-версия решения есть?

(11) Подвинься. Расскажу за 4999 руб )

(13) я слышу 4999, кто меньше)
В общем если найду информацию опубликую решение. Бесплатно!

(0)
Коннектор = Новый COMОбъект("V83.COMConnector");
СоединениеСАгентом = Коннектор.ConnectAgent(ИмяСервера1С);

И вперед.

(15) Спасибо за инфу.

И вот процедура как и обещал:


    СтрокаСоединенияСБД = СтрокаСоединенияИнформационнойБазы();    
    ПозицияПоиска = Найти(Врег(СтрокаСоединенияСБД), "SRVR=");
    Если ПозицияПоиска = 0 Тогда
        Предупреждение("База должна быть серверной!");
        Возврат;
    КонецЕсли;
    ПозицияОкончания = СтрНайти(СтрокаСоединенияСБД,""";Ref=""");
    ИмяСервера = Сред(СтрокаСоединенияСБД,7,ПозицияОкончания-7);
    
    Коннектор = Новый COMОбъект("V83.COMConnector");
    СоединениеСАгентом = Коннектор.ConnectAgent(ИмяСервера);
    //получаем кластер
    мКластер = Неопределено;
    Кластеры = СоединениеСАгентом.GetClusters();
    Для Каждого Кластер Из Кластеры Цикл
        мКластер = Кластер;
    КонецЦикла;
    Если мКластер = Неопределено Тогда
        Предупреждение("Не найдено ни одного кластера!");
        Возврат;
    КонецЕсли;
    //
    СоединениеСАгентом.Authenticate(Кластер, , );
    мСеансы = СоединениеСАгентом.GetSessions(Кластер);
    Сеансы.Очистить();
    Лицензии.Очистить();
    Для каждого Сеанс из мСеансы Цикл
        //новый сеанс
        НовыйСеанс = Сеансы.Добавить();
        //заполняем
        НовыйСеанс.Компьютер = Сеанс.Host;
        НовыйСеанс.База = Сеанс.infoBase.Name;
        НовыйСеанс.Пользователь = Сеанс.userName;
        НовыйСеанс.ДатаПодключения = Сеанс.StartedAt;
        НовыйСеанс.ДатаПоследнейАктивности = Сеанс.LastActiveAt;
        НовыйСеанс.Лицензия = Сеанс.License.Series;
    КонецЦикла;

Частично вдохновился с этой статьи: http://catalog.mista.ru/public/77671/