Имя: Пароль:
1C
1С v8
Платформа 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()