EsbListUsers

特定のEssbaseサーバー、アプリケーションまたはデータベースへのアクセスを持つすべてのユーザーをリストします。

構文

            EsbListUsers
             (
            hCtx, AppName, DbName, pItems
            )
ByVal 
            hCtx
                As Long
ByVal 
            AppName
             As String
ByVal 
            DbName
              As String
      
            pItems
              As Integer

パラメータ	説明
hCtx	VB APIコンテキスト・ハンドル
AppName	アプリケーション名。空の文字列の場合は、すべてのユーザーがリストされます
DbName	データベース名。
pItems	ユーザーのカウントを受け取る変数のアドレス

備考

AppNameおよびDbNameの両方が空の文字列でない場合は、指定したアプリケーションとデータベースへのアクセス権のあるユーザーのみがリストされます。DbNameが空の文字列の場合、指定したアプリケーションへのアクセス権のあるユーザーのみがリストされます。AppNameが空の文字列の場合は、そのサーバー上のすべてのユーザーがリストされます。
EsbGetNextItem()を使用して、指定したアプリケーションおよびデータベースにアクセス可能なユーザーのリストが、ESB_USERINFO_T構造体のリストとして戻されます。戻されるユーザー情報構造体の「AppName」および「DbName」フィールドにはNULL値が含まれています。

戻り値

正常終了の場合、ユーザー数がpCountに戻され、EsbGetNextItem()を介してアクセス可能な、指定されたアプリケーションおよびデータベースに対してアクセス権を持っているユーザーのリストが生成されます。

アクセス

この関数を使用するのに、特別な権限は必要ありません。

例

         Declare Function EsbListUsers Lib "ESBAPIN" (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