а хотя пох.

вот кусок, который проверяет активные пользовательские сеансы(каждые 30 сек в течении 5 минут и возвращает по истечении результат)

ReturnItem = 1


do while Rez = 0 

'пауза в 30сек
WScript.Sleep 30000 

'соединенийПользователей = 0
ConnectionsUsers = 0

'всего соединений
ConnectionsItemCount = Connect.GetInfoBaseConnections().Count()
'счетчик соединений
ConnectionsItemCountStart = 0

' перебираем все соединения
do while  ConnectionsItemCountStart<=ConnectionsItemCount-1 

' получаем имя соединения
ConnectionApplicationName = Connect.GetInfoBaseConnections().get(ConnectionsItemCountStart).ApplicationName

if ConnectionApplicationName = "1CV8C" then

ConnectionsUsers = ConnectionsUsers + 1

end if

ConnectionsItemCountStart = ConnectionsItemCountStart + 1

Loop


if ConnectionsUsers = 0 then
	txtStreamOut.WriteLine Now() & " > Соединения с базой разорваны: сервер " & ServerName & ", база " & BaseName & " Соединений:"& ConnectionsItemCount
Rez = 1
End If



if ReturnItem = 6 then
	txtStreamOut.WriteLine Now() & " > Соединения с базой не разорваны: сервер " & ServerName & ", база " & BaseName & " Соединений:"& ConnectionsItem-1
rez = 2
End if

ReturnItem = ReturnItem + 1
Loop