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
В оснастке управления сервером приложений все нормально. все активные соединения показывает - ничего лишнего.
ни у кого такое не наблюдается?
|
|
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()
|
|