EsbLogoutUser() allows a Supervisor or an Application Designer to disconnect another user from an Essbase server.
EsbLogoutUser (hCtx, LoginId)
ByVal hCtx As Long ByVal LoginId As Long
| hCtx | Essbase VB API context handle of user forcing the log out. |
| LoginId | Login ID of user to be logged out. |
Declare Function EsbLogoutUser Lib "ESBAPIW" (ByVal hCtx As Long, ByVal LoginId As Long) As Long
Sub ESB_LogoutUser()
Dim Items As Integer
Dim UserInfo As ESB_USERINFO_T
Dim sts As Long
'*****************
' List Connections
'*****************
sts = EsbListConnections(hCtx, Items)
'*****************
' Log out all users
'*****************
For n = 1 To Items
'*****************************
' Get next User Info structure
' from the list
'*****************************
sts = EsbGetNextItem(hCtx, ESB_USERINFO_TYPE, UserInfo)
sts = EsbLogoutUser(hCtx, UserInfo.LoginId)
Next
End Sub
EsbListConnections()