EsbSetApplicationAccess() sets a user application access structure, which contains information about user access to an application.
EsbSetApplicationAccess (hCtx, Items, pUserApp)
ByVal hCtx As Long ByVal Items As Long ByVal pUserApp As ESB_USERAPP_T
hCtx | Essbase VB API context handle. |
Items | Reserved for future use. |
pUserApp | Pointer to a user application structure. |
Declare Function EsbSetApplicationAccess Lib "ESBAPIW" (ByVal hCtx As Long, ByVal Items As Integer, UserApp As ESB_USERAPP_T) As Long Sub EsbSetApplicationAccess () Dim sts As Long Dim Items As Integer Dim UserApp As ESB_USERAPP_T '***************************** ' Initialize UserApp structure '***************************** UserApp.UserName = "Joseph" UserApp.AppName = "Sample" UserApp.Access = ESB_ACCESS_SUPER UserApp.MaxAccess = ESB_ACCESS_SUPER '*************************** ' Set Supervisor access level '*************************** sts = EsbSetApplicationAccess (hCtx, Items, UserApp) End SubEsbGetApplicationAccess()