EsbListConnections

現在ログインしているサーバーまたはアプリケーションに接続されているユーザーをすべてリストします。

構文

            EsbListConnections
             (
            hCtx, pItems
            )
ByVal 
            hCtx
               As Long
      
            pItems
             As Integer

パラメータ	説明
hCtx	VB APIコンテキスト・ハンドル。
pItems	ユーザーのアイテムを受け取る変数。

備考

hCtxが管理者の場合、pItemsにはサーバーにログインしているユーザー数が入ります。hCtxがアプリケーション・マネージャの場合、pItemsにはhCtxがアプリケーション・マネージャになっているアプリケーションに接続しているユーザー数が入ります。
EsbGetNextItem()を各ユーザーに対して1回呼び出します(pItems変数で戻される)。EsbGetNextItem()への呼出しはそれぞれ、ESB_USERINFO_T構造体にユーザー情報を戻します。

戻り値

成功の場合、0が戻されます。

アクセス

この関数を使用するには、呼出し元が管理者またはアプリケーション・マネージャ権限を持っている必要があります。

例

         Declare Function EsbListConnections Lib "ESBAPIN" (ByVal hCtx As Long, Items As Integer) As Long
Sub ESB_ListConnections()
   Dim Items As Integer
   Dim UserInfo As ESB_USERINFO_T
   Dim sts As Long
   '*****************
   ' List Connections
   '***************** 
   sts = EsbListConnections(hCtx, Items)
   For n = 1 To Items
     '*****************************
     ' Get next User Info structure
     ' from the list
     '*****************************
     sts = EsbGetNextItem(hCtx, 
           ESB_USERINFO_TYPE, UserInfo)
   Next
End Sub