Имя: Пароль:
1C
1С v8
Подключение к серверу 1с и определение захвачености СУБД програмнно
0 serg-lom89
 
20.08.15
16:20
Есть ли возможность как нить например подключиться к консоли серверов 1с и например посмотреть у кого больше захвачено СУБД..

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

Как такое осуществить и возможно ли?
если до то подскажите как ?ну или пример  какой нить есть у кого
1 Azverin
 
20.08.15
16:29
(0) от сердца отрываю: http://catalog.mista.ru/public/123354/
2 serg-lom89
 
20.08.15
16:41
так мне весь функционал не нужен))
мне бы как нить получить информацию о том сколько захвачено СУБД?
3 Azverin
 
20.08.15
16:43
(2) прочту проверь и дёргай кусок кода на здоровье!
4 serg-lom89
 
20.08.15
18:56
ребята подскажите как получить "Получить список сеансов информационной базы."

взял код с 8.2 обработки

    //Выполняет подсоединение к агенту сервера 1С:Предприятия 8.1, работающему на указанном серверном компьютере.
    Агент = Коннектор.ConnectAgent(ИмяСервера);
    Кластеры = Агент.GetClusters(); // список кластеров, зарегистрированных на центральном сервере.Массив
    
    Для каждого Кластер из Кластеры Цикл
        
        Попытка
            Агент.Authenticate(Кластер,"","");   //Подключаемся у консоли
        Исключение
            Предупреждение("Укажите корректные Имя и Пароль ");
            Возврат;
        КонецПопытки;
        
        Процессы = Агент.GetWorkingProcesses(Кластер);  //получаем массив рабочих раб процес.
        
        Для каждого Процесс из Процессы Цикл
            
            Порт =Процесс.MainPort;
            //Создает административное соединение с рабочим процессом кластера серверов 1С:Предприятия 8.1.
            РабПроц = Коннектор.ConnectWorkingProcess(ИмяСервера + ":" + СтрЗаменить(Порт, Символы.НПП, ""));
            
            //
            РабПроц.AddAuthentication(СокрЛП(АдминистраторИБ),СокрЛП(ПарольИБ));//подключаемся к базе
            
            ИнформационнаяБаза = "";
            
            
                Базы = Агент.GetInfoBases(Кластер);
                Для каждого База из Базы Цикл
                    Если НРег(База.Name) = НРег(ИмяБазы) Тогда
                        ИнформационнаяБаза = База;
                        Прервать;
                    КонецЕсли;
                КонецЦикла;
                
                Базы = РабПроц.GetInfoBases();
                Для каждого База из Базы Цикл
                    Если НРег(База.Name) = НРег(ИмяБазы) Тогда
                        ИнформационнаяБаза1 = База;
                        Прервать;
                    КонецЕсли;
                КонецЦикла;
            
                ///
                Если ИнформационнаяБаза = "" или ИнформационнаяБаза1 = "" Тогда
                    Сообщить("База не найдена");
                    Возврат;
                КонецЕсли;
                
                //Сеансы = Агент.GetInfoBaseSessions(Кластер, ИнформационнаяБаза);
                Попытка
                    СоединенияБазы = РабПроц.GetInfoBaseConnections(ИнформационнаяБаза1);
                Исключение
                    Предупреждение("Укажите корректные Имя и Пароль пользователя с правами АДМИНИСТРАТОРА ИНФОРМАЦИОННОЙ БАЗЫ");
                    Возврат;
                КонецПопытки;
                

        КонецЦикла;
        
    КонецЦикла;
5 serg-lom89
 
20.08.15
18:56
но на 8.1                 //Сеансы = Агент.GetInfoBaseSessions(Кластер, ИнформационнаяБаза);
не работает
6 serg-lom89
 
20.08.15
20:02
может кто подскажет как получить массив сессий в 1с?
Основная теорема систематики: Новые системы плодят новые проблемы.