Выгоняем всех пользователей с сервера 1с.

Сервер 1С Версии 8.2

Учетная запись Администратора на кластер 1с не назначена.

$SrvAddr = "tcp://localhost:1540"

$V82Com = New-Object -COMObject "V82.COMConnector"
$ServerAgent = $V82Com.ConnectAgent($SrvAddr)
$ServerAgent.AuthenticateAgent("","")

$cls  =  $ServerAgent.GetClusters()
$cl = $cls.GetValue(0)
$ServerAgent.Authenticate($cl,"", "")
$Sessions = $ServerAgent.GetSessions($cl)

Foreach ($bird in $Sessions) 
{ 
 if ($bird.userName -eq "RaZZoRRo"){Write-Host "Хороший пользователь"}
 else {$ServerAgent.TerminateSession($cl,$bird) } 
}

$SrvAddr = "tcp://localhost:1540"

$V82Com = New-Object -COMObject "V82.COMConnector"

$ServerAgent = $V82Com.ConnectAgent($SrvAddr)

$ServerAgent.AuthenticateAgent("","")

$cls = $ServerAgent.GetClusters()

$cl = $cls.GetValue(0)

$ServerAgent.Authenticate($cl,"", "")

$Sessions = $ServerAgent.GetSessions($cl)

Foreach ($bird in $Sessions)

{

if ($bird.userName -eq "RaZZoRRo"){Write-Host "Хороший пользователь"}

else {$ServerAgent.TerminateSession($cl,$bird) }

}

Есть возможность запуска не только на сервере 1с но и с локальной рабочей станции.

Читайте также

Отослать сообщение всем активным пользователям TS

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

Несколько серверов 1с 8.3 на одном сервере.

Powershell , Compress-Archive и Hello World Python.