|
|
Выгнать пользователей из Информационной базы скриптом *.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
|
Да, это и есть измененный.
Но -- большое спасибо.
|
|
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший