|
Подключение к серверу 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с?
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |