EsbGetApplicationAccess

アプリケーションへのユーザーのアクセス権情報が含まれているユーザー・アプリケーション・アクセス構造体のリストを取得します。

構文

            EsbGetApplicationAccess
             (
            hCtx, User, AppName, pItems
            )
ByVal 
            hCtx
                As Long
ByVal 
            User
                As String
ByVal 
            AppName
             As String
      
            pItems
              As Integer

パラメータ	説明
hCtx	VB APIコンテキスト・ハンドル。
User	ユーザー名。空の文字列の場合は、指定したアプリケーションのすべてのユーザーがリストされます。
AppName	アプリケーション名。空の文字列の場合は、指定したユーザーのすべてのアプリケーションがリストされます。
pItems	ユーザー・アプリケーション構造体のアイテムを受け取る変数のアドレス。

備考

Userが空の文字列の場合は、指定したアプリケーションのすべてのユーザーがリストされます。AppNameが空の文字列の場合は、指定したユーザーのすべてのアプリケーションがリストされます。ただし、UserとAppNameの両方を空の文字列とすることはできません
ユーザー・アプリケーションの構造体のAccessフィールドは、アプリケーションに対してユーザーに与えられたアクセス権を表すのに使用されます。一方MaxAccessフィールドは、すべてのソースから得られるユーザーの最高のアクセス権(たとえばグループを介したアクセス権やデフォルトのアプリケーション・アクセス権など)を表します。

戻り値

正常終了の場合、ユーザーおよびアプリケーションのアイテムがpItemsに戻され、ユーザー・アプリケーションの構造体のリストが生成されます。このリストにはEsbGetNextItem()を使用してアクセスできます

アクセス

この関数を使用するには、独自のアプリケーションのアクセス情報を取得する場合を除き、呼出し元は指定されたアプリケーションに対してアプリケーション・デザイン権限(ESB_PRIV_APPDESIGN)を持っている必要があります。

例

         Declare Function EsbGetApplicationAccess Lib "ESBAPIN" (ByVal hCtx As Long, ByVal User As String, ByVal AppName As String, Items As Integer) As Long

Sub ESB_GetApplicationAccess ()
   Dim Items As Integer
   Dim AppName As String
   Dim User As String
   Dim UserApp As ESB_USERAPP_T
   Dim sts As Long   AppName = "Demo"
   User = "Joseph"   '***********************
   ' Get Application Access
   '*********************** 
   sts = EsbGetApplicationAccess (hCtx,
   User, AppName, Items)   For n = 1 To Items       '*********************************
      ' Get next User Application Access
      ' structure from the list
      '*********************************
      sts = EsbGetNextItem (hCtx, 
      ESB_USERAPP_TYPE, UserApp)
   Next
End Sub