EsbLoginSetPassword

ユーザーをログインさせ、パスワードを変更します。パスワードが失効した場合、または次のログイン時に変更が必要な場合にこの関数を使用します。

構文

            EsbLoginSetPassword(
            hInstance
            , 
            Server
            , 
            UserName
            , 
            Password
            , _
                    
            NewPassword
            , 
            Items
            , 
            hCtx
            )
ByVal 
            hInstance
               As Long
ByVal 
            Server
                  As Long
ByVal 
            UserName
                As String
ByVal 
            Password
                As String
ByVal 
            NewPassword
             As String
      
            Items
                   As Integer
      
            hCtx
                    As Long

パラメータ	説明
hInstance	APIインスタンス・ハンドル。
Server	ネットワーク・サーバー名の文字列。サーバー名は、hostname、hostname:port、またはAPSサーブレットのエンドポイントにEssbaseフェイルオーバー・クラスタ名を付加したURLとして表すことができます。次に例を示します: http://myhost:13080/aps/Essbase?clustername=Essbase-Cluster1 保護モード(SSL)の場合、URLの構文は次のとおりです http[s]://host:port/aps/Essbase?ClusterName=logicalName&SecureMODE=yesORno たとえば、 https://myhost:13080/aps/Essbase?clustername=Essbase-Cluster1&SecureMODE=Yes
UserName	ユーザー名。
Password	旧パスワード。
NewPassword	新パスワード。
Items	アクセス可能なデータベースの数。
hCtx	Essbaseサーバー・コンテキスト・ハンドル。

備考

EsbLoginSetPasswordは、EsbLoginを呼び出し、ステータス・コード1051090 (パスワードが期限切れ)または1051093 (すぐにパスワードを変更)を受け取った後に呼び出します。
Microsoft Windowsでは、EsbLoginSetPasswordのかわりにEsbAutoLoginを使用することを検討してください。
EsbFreeを使用して、Itemsに割り当てられているメモリーを解放してください。

戻り値

成功の場合、EsbLoginSetPassword:

hCtxにEssbaseサーバー・コンテキスト・ハンドルを戻します。
ユーザーがアクセス可能なデータベースの数がItemsに戻されます。
EsbGetNextItemの呼出しによって読み取ることのできる、アクセス可能なデータベースのリストが生成されます。

アクセス

EsbLoginSetPasswordを呼び出す前に、EsbInitを呼び出してAPIを初期化し、有効なインスタンス・ハンドルを取得します。

例

         Declare Function EsbLoginSetPassword Lib "ESBAPIN" (ByVal hInst As Long, ByVal Server As String, ByVal User As String, _
   ByVal Password As String, ByVal NewPassword As String, Items As Integer, hCtx As Long) As Long
   
   Sub ESB_LoginSetPassword ()
   Dim hInst       As Long
   Dim Server      As String * ESB_SVRNAMELEN
   Dim User        As String * ESB_USERNAMELEN
   Dim Password    As String * ESB_PASSWORDLEN
   Dim NewPassword As String * ESB_PASSWORDLEN
   Dim Items       As Integer
   Dim AppDb       As ESB_APPDB_T
   Dim hCtx        As Long   sts = EsbLoginSetPassword (hInst, Server, User, Password, NewPassword, Items, hCtx)   For n = 1 To Items   '*******************************
   ' Get next Application/Database 
   ' name combination from the list
   '******************************* 
   sts = EsbGetNextItem (hCtx, ESB_LAPPDB_TYPE, AppDb)
   Next
End Sub