EsbSetGlobalState

システム管理用のパラメータが含まれている、サーバーのグローバルな状態構造体を設定します。

構文

            EsbSetGlobalState
             (
            hCtx, pGlobal
            )
ByVal 
            hCtx
                As Long
      
            pGlobal
             As ESB_GLOBAL_T

パラメータ	説明
hCtx	VB APIコンテキスト・ハンドル。
pGlobal	グローバル状態構造体へのポインタ。

備考

パラメータ値を変更するときは、最初にEsbGetGlobalState()を呼び出して、変更しないパラメータの正しい値を取得することをお薦めします。

戻り値

なし。

アクセス

この関数を使用するには、呼出し元が管理者である必要があります。

例

         Declare Function EsbSetGlobalState Lib "ESBAPIN" (ByVal hCtx As Long, Global As ESB_GLOBAL_T) As Long

Sub ESB_SetGlobalState ()
   Dim sts As Long
   Dim pGlobal As ESB_GLOBAL_T   pGlobal.Security = ESB_TRUE
   pGlobal.Logins = ESB_TRUE
   pGlobal.Access = ESB_ACCESS_READ 
   pGlobal.Validity = 14
   pGlobal.Currency = ESB_FALSE
   pGlobal.PwMin = 6
   pGlobal.InactivityTime = 300 
   pGlobal.InactivityCheck = 40   '*****************
   ' Set Global State
   '*****************
   sts = EsbSetGlobalState (hCtx, pGlobal) 
End Sub