|
Платформа 8.3 и список активных пользователей | ☑ | ||
|---|---|---|---|---|
|
0
Kavar
09.04.15
✎
05:44
|
После переезда с 8.2 на 8.3 (сейчас установлена 8.3.5.1517)
в БГУ (1.0.33.4) и ЗиКБУ (1.0.81.3) в списке активных пользователей сеансы обновляются криво. может показывать пользователей которы давным давно из базы вышли. в т.ч. пару дней назад. Короче, список пользователей нифига не актуальный. Сервер 1С х32, SQL Server 2008 R2, Winserv 2008R2 В оснастке управления сервером приложений все нормально. все активные соединения показывает - ничего лишнего. ни у кого такое не наблюдается? |
|||
|
1
ChiginAV
09.04.15
✎
06:15
|
8.3.5.1098 - та же фигня. В консоли кластера фантомы висят в "сеансах", в "соединениях" все норм
|
|||
|
2
Kavar
09.04.15
✎
06:40
|
Баг?
|
|||
|
3
rustemg
09.04.15
✎
11:21
|
на шедулер:
'имя пользователя 1С:Предприятия UserName = "имя" 'пароль пользователя 1С:Предприятия UserPass = "пароль" 'имя сервера 1С ServerName = "server1c" BaseName = "baza" Dim objFSO Dim objFile Dim LogFileName Dim Result 'Sub CloseConnection() Dim Connector, Agent, Cluster, WorkProcess, WorkProcessConnection, Base, Connections, i, CurrentConnection Dim BaseList Set Connector = CreateObject("V83.COMConnector") 'Селект текущего кластера серверов Set Agent = Connector.ConnectAgent(ServerName) Set Cluster = Agent.GetClusters()(0) Agent.Authenticate Cluster, "", "" 'Agent.Authenticate Cluster, UserName, UserPass MassBase = Agent.GetInfoBases(Cluster) For i = LBound(MassBase) To UBound(MassBase) Set Base = MassBase(i) 'MsgBox Base.Name If Base.Name = BaseName Then Sessions = Agent.GetInfoBaseSessions(Cluster, Base) For k = LBound(Sessions) To UBound(Sessions) Set ThisSession = Sessions(k) If ThisSession.AppID <> "COMConsole" And IsEmpty(ThisSession.process) Then Agent.TerminateSession Cluster, ThisSession 'MsgBox "User: " & ThisSession.UserName & " App ID: " + ThisSession.AppID End If Next Exit For End If Next 'End Sub 'CloseConnection() |
| Форум | Правила | Описание | Секции | Поиск |