Автоматическое закрытие сеансов пользователей с помощью VBS.

Option Explicit

Dim UserName
Dim UserPass
Dim ServerName
Dim BaseName
'имя пользователя базы 1С:Предприятия
UserName = "******"
'пароль пользователя базы 1С:Предприятия
UserPass = "*****"
'имя кластера 1С:Предприятия
ServerName = "127.0.0.1"
'имя базы 1С:Предприятия к которой подключаемся
BaseName = "TestTMC"

Dim Connector
Dim AgentConnection
Dim Cluster
Dim Clusters
Dim WorkingProcess
Dim WorkingProcesses
Dim WorkingProcessConnection
Dim ibDesc
Dim Connections
Dim Connection
Dim ConnectString
Dim IBB
Dim IBBl
Dim Sessions
Dim ISe
Dim SessionsActiv

Set Connector = CreateObject("V83.COMConnector") ' указать в зависимости от вашей версии платформы V8, V81, V82, V83
MsgBox ("Начало")
Set AgentConnection = Connector.ConnectAgent(ServerName)
Clusters = AgentConnection.GetClusters()
Dim Q,W,I

For Q = LBound(Clusters) to UBound(Clusters)
	
	Set Cluster = Clusters(Q)
	
	'Указываем доступ к консоли 1С:Предприятия (только в том случае если определён администратор кластера, иначе прописать просто " " (пробелы))
	AgentConnection.Authenticate Cluster, "UserName", "UserPass"
	WorkingProcesses = AgentConnection.GetWorkingProcesses(Cluster)
	IBB = AgentConnection.GetInfoBases(Cluster)
	
	For I = LBound(IBB) To UBound(IBB)
		Set IBBl = IBB(I)
		Sessions = AgentConnection.GetInfoBaseSessions (Cluster,IBBl)
			
		For ISe = LBound(Sessions) To UBound(Sessions)
		Set SessionsActiv = Sessions(ISe)
			
		If (SessionsActiv.AppID <> "COMConsole") then
			AgentConnection.TerminateSession Cluster,SessionsActiv
			MsgBox ("Отключаем_Сесию")
		End if

	Next
Next

' Отключение соединение (если потребуеться а пока оставлю здесь)

' For W = LBound(WorkingProcesses) to UBound(WorkingProcesses)
' 	Set WorkingProcess = WorkingProcesses(W)
' 	ConnectString = WorkingProcess.HostName & ":" & WorkingProcess.MainPort
' 	Set WorkingProcessConnection = Connector.ConnectWorkingProcess(ConnectString)
' 	WorkingProcessConnection.AddAuthentication UserName, UserPass
' 	Set ibDesc = WorkingProcessConnection.CreateInfoBaseInfo()
' 	ibDesc.Name = BaseName
' 	Connections = WorkingProcessConnection.GetInfoBaseConnections(ibDesc)
' 	For I = LBound(Connections) To UBound(Connections)
' 		Set Connection = Connections(I)
' 		If (Connection.AppID <> "COMConsole") then
' 			WorkingProcessConnection.Disconnect Connection
' 			MsgBox ("Отключаем_Соединение")
' 		End if
' 	Next
' Next
Next
MsgBox ("Конец")

Set AgentConnection = Connector.ConnectAgent(ServerName)