EsbListUsers() lists all users who have access to a particular Essbase server, application or database.
EsbListUsers (hCtx, AppName, DbName, pItems)
ByVal hCtx As Long ByVal AppName As String ByVal DbName As String pItems As Integer
hCtx | Essbase VB API context handle |
AppName | Application name. If an empty string, lists all users |
DbName | Database name. |
pItems | Address of variable to receive count of users |
Declare Function EsbListUsers Lib "ESBAPIW" (ByVal hCtx As Long, ByVal AppName As String, ByVal DbName As String, Count As Integer) As Long Sub ESB_ListUsers () Dim Count As Integer Dim AppName As String Dim DbName As String Dim UserInfo As ESB_USERINFO_T Dim sts As Long AppName = "Sample" DbName = "Basic" '*********** ' List Users '*********** sts = EsbListUsers (hCtx, AppName, DbName, Count) For n = 1 To Count '***************************** ' Get next User Info structure ' from the list '***************************** sts = EsbGetNextItem (hCtx, ESB_USERINFO_TYPE, UserInfo) Next End SubEsbGetUser()