Свойства:
Описание:
Доступность:
Пример:
| Rem Пример удаления всех соединений (фрагмент на VBScript): Set connector = CreateObject("V83.COMConnector") Set ragent = connector.ConnectAgent("CentralServer") ragent.AuthenticateAgent "CentralAdminName", "Password" clusters = ragent.GetClusters() Set cluster = clusters(0) ragent.Authenticate cluster, "ClusterAdminName", "Password" processes = ragent.GetWorkingProcesses(cluster) Set process0 = processes(0) WorkingAddress = process0.HostName ":" process0.MainPort Set server = connector.ConnectWorkingProcess(WorkingAddress) server.AddAuthentication "InfoBaseUserName", "Password" Set ibDesc = server.CreateInfoBaseInfo() ibDesc.Name = "InfoBaseName" connections = server.GetInfoBaseConnections(ibDesc) Dim i For i = LBound(connections) To UBound(connections) set connection = connections(i) server.Disconnect connection Next |
См. также: