EsbListConnections() lists all users who are connected to the currently logged in server or application.
EsbListConnections (hCtx, pItems)
ByVal hCtx As Long
pItems As Integer
| hCtx | Essbase VB API context handle. |
| pItems | Variable to receive Items of users. |
Declare Function EsbListConnections Lib "ESBAPIW" (ByVal hCtx As Long, Items As Integer) As Long
Sub ESB_ListConnections()
Dim Items As Integer
Dim UserInfo As ESB_USERINFO_T
Dim sts As Long
'*****************
' List Connections
'*****************
sts = EsbListConnections(hCtx, Items)
For n = 1 To Items
'*****************************
' Get next User Info structure
' from the list
'*****************************
sts = EsbGetNextItem(hCtx,
ESB_USERINFO_TYPE, UserInfo)
Next
End Sub
EsbListLocks()