Соединение (IInfoBaseConnectionInfo)
Свойства:
blockedByDBMS (blockedByDBMS)
bytesAll (bytesAll)
bytesLast5Min (bytesLast5Min)
callsAll (callsAll)
callsLast5Min (callsLast5Min)
ConnectedAt (ConnectedAt)
ConnID (ConnID)
dbConnMode (dbConnMode)
dbmsBytesAll (dbmsBytesAll)
dbmsBytesLast5Min (dbmsBytesLast5Min)
dbProcInfo (dbProcInfo)
dbProcTook (dbProcTook)
dbProcTookAt (dbProcTookAt)
durationAll (durationAll)
durationAllDBMS (durationAllDBMS)
durationCurrent (durationCurrent)
durationCurrentDBMS (durationCurrentDBMS)
durationLast5Min (durationLast5Min)
durationLast5MinDBMS (durationLast5MinDBMS)
HostName (HostName)
IBConnMode (IBConnMode)
InBytesAll (InBytesAll)
InBytesCurrent (InBytesCurrent)
InBytesLast5Min (InBytesLast5Min)
MemoryAll (MemoryAll)
MemoryCurrent (MemoryCurrent)
MemoryLast5Min (MemoryLast5Min)
OutBytesAll (OutBytesAll)
OutBytesCurrent (OutBytesCurrent)
OutBytesLast5Min (OutBytesLast5Min)
ThreadMode (ThreadMode)
UserName (UserName)
Описание:
Представляет собой объект с интерфейсом IInfoBaseConnectionInfo.
Доступность:
Пример:
| 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 |
См. также: