Имя: Пароль:
1C
1С v8
Выгнать пользователей из Информационной базы скриптом *.vbs
, , ,
0 den17
 
27.01.14
18:07
Здравствуйте, хотел спросить у Вас -- как разорвать все сеансы с Информационной базой (Конфигурация "Управление ремонтным предприятием " Платформа 1С8.2.19.76)скриптом *.vbs? Я пытаюсь так:

Option Explicit

Dim UserName
Dim UserPass
Dim ServerName
Dim BaseName

UserName = "ФаршатовДД"

UserPass = "17078217"

ServerName  =  "serversql"

BaseName    =  "tmh_copy"


Dim Connector
Dim AgentConnection
Dim Cluster
Dim Clusters
Dim WorkingProcess
Dim WorkingProcesses
Dim WorkingProcessConnection
Dim ibDesc
Dim Connections
Dim Connection
Dim ConnectString
Set Connector = CreateObject("V82.COMConnector")  
Set AgentConnection = Connector.ConnectAgent(ServerName)
Clusters = AgentConnection.GetClusters()
Dim Q,W,I
For Q = LBound(Clusters) to UBound(Clusters)
    Set Cluster = Clusters(Q)

    AgentConnection.Authenticate Cluster, " ", " "
    WorkingProcesses = AgentConnection.GetWorkingProcesses(Cluster)
    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
            End if
        Next
    Next
Next

Но при запуске скрипта постоянно возникает ошибка "Невозможно создание объекта контейнером ActiveX:`V82.COMConnector`. Код: 800A01AD.
Скажите пожалуйста, как запустить этот скрипт.. (OS: WindowsServer2008X64)
1 acsent
 
27.01.14
18:11
8.2 установлено?
2 acsent
 
27.01.14
18:11
установи также х64 ком объекты
3 den17
 
27.01.14
18:12
А где их взять.. Это из-за разрядности ОС значит..
4 den17
 
27.01.14
18:13
Да, установлена 8.2.
5 shuhard
 
27.01.14
18:13
(3) они есть в дистрибутиве х64
6 Господин ПЖ
 
27.01.14
18:14
>установи также х64 ком объекты

а они существуют? О_о
7 Господин ПЖ
 
27.01.14
18:14
обертка нужна 64-битная над com для 1с...
8 Господин ПЖ
 
27.01.14
18:15
9 den17
 
27.01.14
18:23
А на Локальном ПК (Win7X64) (не на сервере) тоже такая-же ошибка. Т.е. там инструкция только для серверов?
10 den17
 
27.01.14
18:28
ОК. Спасибо большое за Инструкцию..
Посмотрю чуть позже -- сейчас домой уже надо идти..)
11 Torquader
 
27.01.14
18:59
(10) На будущее - не стоит выкладывать пароль открытым текстом.
Понятно, что никого, кроме сотрудников вашей фирмы, он не заинтересует, но всё же стоит его поменять.
12 den17
 
27.01.14
19:52
Да, это и есть измененный.
Но -- большое спасибо.