Здравствуйте всем, подскажите плз где выставляется таймаут соединений
Скульная база, платформа 8.2, а то надоело сеансы зависают у некоторых пользователей!

УПс

Нет или заезженный вопрос?

Или как отследить простой соединения

Кажись, нигде не выставляется. Где-то в доках описано, когда отстреливается. Вроде через пол-часа или около того.
Не отследить никак, вроде...

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

(5) а по какому свойству соединения можно узнать проштрафившихся?

Такое прочитал в СП:
dbProcTookAt Тип: Дата.
Момент последнего захвата соединения с сервером баз данных.

(7) Если это то что нужно (а похоже на то), то прикольно. Буду знать. Все равно ведь пробовать будешь - отпишись по результатам.

Наверное, именно эту хрень показывает как "Последнюю активность" пользователя. ИМХО, вполне можно на неё завязаться.

Хорошо посмотрим, отпишусь как попробую

LastActiveAt работает хорошо для веб-клиента (и тонкого?)
для толстого работает что-то ниже = 0 если за 5 минут не было вызовов СУБД
durationLast5Min
durationLast5MinDBMS

LastActiveAt на толстом обновляется регулярно даже если пользователь не интерактивит
скорее всего обработчик ожидания воспринимается как активность клиента

на тонком у меня обработчика ожидания пока нет

Кое-что накопал, кому надо
Процедура ЗавершениеРаботыНеактивныхПользователей() Экспорт
   
   ПодстрокиСтрокиСоединения  = РазложитьСтрокуВМассивПодстрок(СтрокаСоединенияИнформационнойБазы(),";");
   
   Если ПодстрокиСтрокиСоединения.Количество()> 1 и Лев(ПодстрокиСтрокиСоединения[0], 5) = "Srvr=" и Лев(ПодстрокиСтрокиСоединения[1], 4) = "Ref=" Тогда
   
       ИмяСервера = СтрЗаменить(Сред(ПодстрокиСтрокиСоединения[0],7, СтрДлина(ПодстрокиСтрокиСоединения[0]) - 7),":",Символы.ПС);
       ИмяБазы      = Сред(ПодстрокиСтрокиСоединения[1],6, СтрДлина(ПодстрокиСтрокиСоединения[1]) - 6);
       Порт = СтрПолучитьСтроку(ИмяСервера,2);
       Порт = Лев(Порт,СтрДлина(Порт)-1)+"0";
       ИмяСервера = СтрПолучитьСтроку(ИмяСервера,1);
       
       Попытка
           Коннектор = Новый COMОбъект("V82.COMConnector");
           
           Агент = Коннектор.ConnectAgent(ИмяСервера+?(Порт="","",":"+Порт));    
           
           Кластеры = Агент.GetClusters();
           Для каждого Кластер из Кластеры Цикл
               АдминистраторКластера = "";
               ПарольКластера = "";
               Агент.Authenticate(Кластер, АдминистраторКластера, ПарольКластера);
               Процессы = Агент.GetWorkingProcesses(Кластер);
               Для каждого Процесс из Процессы Цикл
                   Порт = Процесс.MainPort;
                   // теперь есть адрес и порт для подключения к рабочему процессу
                   РабПроц = Коннектор.ConnectWorkingProcess(ИмяСервера + ":" + СтрЗаменить(Порт, Символы.НПП, ""));
                   РабПроц.AddAuthentication("Администратор", "");
                   
                   ИнформационнаяБаза = "";
                   
                   Базы = Агент.GetInfoBases(Кластер);
                   Для каждого База из Базы Цикл
                       Если База.Name = ИмяБазы Тогда
                           ИнформационнаяБаза = База;
                           Прервать;
                       КонецЕсли;
                   КонецЦикла;
                   Если ИнформационнаяБаза = "" Тогда
                       // база не найдена
                   КонецЕсли;
                   
                   Сеансы = Агент.GetInfoBaseSessions(Кластер, ИнформационнаяБаза);
                   Для каждого Сеанс из Сеансы Цикл
                       Если нРег(Сеанс.AppID) = "backgroundjob" ИЛИ нРег(Сеанс.AppID) = "designer" ИЛИ нРег(Сеанс.AppID) = "comconsole" Тогда
                           // если это сеансы конфигуратора или фонового задания, то не отключаем
                           Продолжить;
                       КонецЕсли;
                       Если Сеанс.userName = ИмяПользователя() Тогда
                           // это текущий пользователь
                           Продолжить;
                       КонецЕсли;
                       //Сообщить(ТекущаяДата()-Сеанс.dbProcTookAt); //здесь не заполняется dbProcTookAt, поэтому отключил это
                       //Агент.TerminateSession(Кластер, Сеанс);
                   КонецЦикла;
                   
                   ИнформационнаяБаза2 = РабПроц.CreateInfoBaseInfo();
                   ИнформационнаяБаза2.Name = ИмяБазы;
                   СоединенияБазы = РабПроц.GetInfoBaseConnections(ИнформационнаяБаза2);                    
                   // Разорвать соединения клиентских приложений.
                   Для Каждого Соединение Из СоединенияБазы Цикл
                       Если нРег(Соединение.AppID) = "backgroundjob" ИЛИ нРег(Соединение.AppID) = "designer" ИЛИ нРег(Соединение.AppID) = "comconsole" Тогда
                           // если это соединение конфигуратора или фонового задания, то не отключаем
                           Продолжить;
                       КонецЕсли;
                       Если Соединение.UserName = ИмяПользователя() Тогда
                           // это текущий пользователь
                           Продолжить;
                       КонецЕсли;
                       Осталось = 120-(ТекущаяДата()-Соединение.dbProcTookAt); //здесь 120 это 2 минуты это так для примера, можно свою константу
                       Сообщить(Осталось);
                       Если Осталось<=0 Тогда
                           РабПроц.Disconnect(Соединение);
                       КонецЕсли;
                   КонецЦикла;
               КонецЦикла;
           КонецЦикла;
       Исключение
           СообщитьОбОшибке(ОписаниеОшибки());
       КонецПопытки;
       
   КонецЕсли;
   
КонецПроцедуры

У меня другой вопрос: как посылать пользователям сообщения, предупреждения? Через WScript.Shell не получилось!

Апа