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 Sub
EsbGetUser()