IInfoBaseConnectionInfo
Properties:
blockedByDBMS
bytesAll
bytesLast5Min
callsAll
callsLast5Min
ConnectedAt
ConnID
dbConnMode
dbmsBytesAll
dbmsBytesLast5Min
dbProcInfo
dbProcTook
dbProcTookAt
durationAll
durationAllDBMS
durationCurrent
durationCurrentDBMS
durationLast5Min
durationLast5MinDBMS
HostName
IBConnMode
InBytesAll
InBytesCurrent
InBytesLast5Min
MemoryAll
MemoryCurrent
MemoryLast5Min
OutBytesAll
OutBytesCurrent
OutBytesLast5Min
ThreadMode
UserName
Description:
Availability:
Example:
Rem Delete all connections(example uses 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 |
See also: