|
Выгнать пользователей из Информационной базы скриптом *.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
|
Да, это и есть измененный.
Но -- большое спасибо. |
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |