vbs скрипт завершения работы пользователей вылетает

имя пользователя 1С:Предприятия
UserName = "" 

'пароль пользователя 1С:Предприятия
UserPass = ""

'имя сервера 1С
AppServerName    = ""
BaseName    =    ""

Set Connector = CreateObject("V83.COMConnector")

Set AgentConnection = Connector.ConnectAgent(AppServerName)

Set Cluster = AgentConnection.GetClusters()(0)

AgentConnection.Authenticate Cluster, "", ""

Set WorkingProcess = AgentConnection.GetWorkingProcesses(Cluster)(0)

ConnectString = WorkingProcess.HostName & ":" & WorkingProcess.MainPort

Set WorkingProcessProc = Connector.ConnectWorkingProcess(ConnectString)

WorkingProcessProc.AddAuthentication UserName, UserPass

Set infobaseinfo = WorkingProcessProc.CreateInfoBaseInfo()

infobaseinfo.Name = BaseName

Connections = WorkingProcessProc.GetInfoBaseConnections(infobaseinfo)

Dim i
Dim Connection
For i = LBound(Connections) To UBound(Connections)
    set Connection = connections(i)
    If (Connection.AppID <> "COMConsole") then
        WorkingProcessConnection.Disconnect Connection
    End if
Next