21.4.4 実行系の汎用スクリプトファイルの作成

実行系のアプリケーションサーバを起動,停止するためのスクリプトファイルをVBScriptで記述します。実行系の各ノードで同一のスクリプトファイルを使用し,同一のパスに配置してください。

<この項の構成>
(1) 実行系の汎用スクリプトファイルの例
(2) 実行系の汎用スクリプトファイルの関数
(3) 実行系の汎用スクリプトファイルの変数
(4) プライベートプロパティの設定

(1) 実行系の汎用スクリプトファイルの例

N:1リカバリシステムの実行系で使用する汎用スクリプトファイルの例を次に示します。なお,汎用スクリプトファイルに定義する関数と変数については,「(2) 実行系の汎用スクリプトファイルの関数」,および「(3) 実行系の汎用スクリプトファイルの変数」を参照してください。また,仮想サーバごとに設定するプライベートプロパティについては,「(4) プライベートプロパティの設定」を参照してください。

Dim WshShell, fso, AccessInfoFile, oExec, oRun, oCosmiHome, oAdmin, oMngsvut, oCjsleep
Dim oMngHost, oUser, oPass
Set WshShell = CreateObject("WScript.Shell")

oCosmiHome = WshShell.ExpandEnvironmentStrings("%COSMINEXUS_HOME%")
oAdminac = """" & oCosmiHome & "¥manager¥bin¥adminagentctl"""
oMngsvut = """" & oCosmiHome & "¥manager¥bin¥mngsvrutil"""
oCjsleep = """" & oCosmiHome & "¥CC¥server¥bin¥cjsleep"""

oMngHost = "172.16.12.39" '--- Management Server
oUser = "admin" ' --- Management Server's userid
oPass = "admin" ' --- Management Server's password

'==== Open ====
Function Open( )
   Resource.LogInformation "======== Entering Open. ========"
   ' --- J2EE Server Name ---
   If Resource.PropertyExists("ServerName") = False Then
       Resource.LogInformation "### Private property ServerName is not set. ###"
   End If
   ' --- Inprocess OTS Status Path ---
   If Resource.PropertyExists("StatusPath") = False Then
       Resource.LogInformation "### Private property StatusPath is not set. ###"
   End If
   ' --- Cluster IP Address ---
   If Resource.PropertyExists("IPAddress") = False Then
       Resource.LogInformation "### Private property IPAddress is not set. ###"
   End If
   ' --- Cluster Host Name ---
   If Resource.PropertyExists("HostName") = False Then
       Resource.LogInformation "### Private property HostName is not set. ###"
   End If
   Open = True
End Function

'==== Online ====
Function Online( )
   Resource.LogInformation "======== Entering Online. ========"

   '--- private properties ---
   If Resource.PropertyExists("ServerName") = False Or _
      Resource.PropertyExists("StatusPath") = False Or _
      Resource.PropertyExists("IPAddress") = False Or _
      Resource.PropertyExists("HostName") = False Then
        Resource.LogInformation "### Private property is not set. ###"
        Online = False
        Exit Function
   End If

   '--- adminagentctl ---
   Set oExec = WshShell.Exec(oAdminac & " start")
   Do While oExec.Status = 0
       WshShell.Run oCjsleep & " 1", 0, True
   Loop
   If oExec.ExitCode <> 0 Then
       Resource.LogInformation "### Administration Agent cannot start. ### rtn=" & oResult
       Resource.LogInformation oExec.StdErr.ReadAll
       Online = False
       Exit Function
   End If

   '--- mngsvrutil ---
   oRun = oMngsvut & " -m "& oMngHost &":28080 -u " & oUser & " -p " & oPass & _
                     " -t " & Resource.IPAddress & " -k host -s start server"
   Set oExec = WshShell.Exec(oRun)
   Do While oExec.Status = 0
       WshShell.Run oCjsleep & " 1", 0, True
   Loop
   If oExec.ExitCode <> 0 Then
       Resource.LogInformation "### Logical Servers start failed. ### rtn=" & oResult
       Resource.LogInformation oExec.StdErr.ReadAll
       Online = False
       Exit Function
   End If
   Online = True
End Function

'==== LooksAlive ====
Function LooksAlive( )
   Resource.LogInformation "======== Entering LooksAlive. ========"

   '--- tasklist ---
   Set oExec = WshShell.Exec("tasklist /NH /FI ""IMAGENAME eq adminagent.exe""")
   Do While oExec.Status = 0
       WshShell.Run oCjsleep & " 1", 0, True
   Loop

   If InStr(1, oExec.StdOut.ReadAll, "adminagent.exe", 1) <> 0 Then
       LooksAlive = True
   Else
       LooksAlive = False
   End If
End Function

'==== IsAlive ====
Function IsAlive( )
   Resource.LogInformation "======== Entering IsAlive. ========"

   '--- mngsvrutil ---
   oRun = oMngsvut & " -m " & oMngHost & ":28080 -u " & oUser & " -p " & oPass & _
                     " -t " & Resource.IPAddress & " -k host check adminAgent"
   Set oExec = WshShell.Exec(oRun)
   Do While oExec.Status = 0
       WshShell.Run oCjsleep & " 1", 0, True
   Loop
   If oExec.ExitCode <> 0 Then
       Resource.LogInformation "### Administration Agent command failed. ### rtn=" & oExec.ExitCode
       Resource.LogInformation oExec.StdErr.ReadAll
       IsAlive = False
   Else
       IsAlive = True
   End If
End Function

'==== Offline ====
Function Offline( )
   Resource.LogInformation "======== Entering Offline. ========"

   '--- mngsvrutil ---
   oRun = oMngsvut & " -m " & oMngHost & ":28080 -u " & oUser & " -p " & oPass & _
                     " -t " & Resource.IPAddress & " -k host -s stop server"
   Set oExec = WshShell.Exec(oRun)
   Do While oExec.Status = 0
       WshShell.Run oCjsleep & " 1", 0, True
   Loop
   If oExec.ExitCode <> 0 Then
       Resource.LogInformation "### Logical Server stopping failed. ### rtn=" & oResult
       Resource.LogInformation oExec.StdErr.ReadAll
       Offline = False
       Exit Function
   End If

   '--- adminagentctl ---
   Set oExec = WshShell.Exec(oAdminac & " stop")
   Do While oExec.Status = 0
       WshShell.Run oCjsleep & " 1", 0, True
   Loop
   If oExec.ExitCode <> 0 Then
       Resource.LogInformation "### Administration Agent stopping failed. ### rtn=" & oResult
       Resource.LogInformation oExec.StdErr.ReadAll
       Offline = False
       Exit Function
   End If
   Offline = True
End Function

'==== Close ====
Function Close( )
   Resource.LogInformation "======== Entering Close. ========"
   Close = True
End Function

'==== Terminate ====
Function Terminate( )
   Resource.LogInformation "======== Entering Terminate. ========"
   Terminate = True
End Function

(2) 実行系の汎用スクリプトファイルの関数

汎用スクリプトファイルには,関数を定義する必要があります。各関数の戻り値は,正常終了時には「True」を,異常終了時には「False」を返します。実行系の汎用スクリプトファイルに定義する関数を次の表に示します。

表21-2 実行系の汎用スクリプトファイルの関数(N:1リカバリシステムの場合)

関数名内容
Openこの汎用スクリプトファイルが開かれるときに実行される関数です。プライベートプロパティが設定されているかどうかを判定します。
Online汎用スクリプトリソースのオンライン時に実行される関数です。この関数で運用管理エージェントと論理サーバを起動します。
LooksAliveリソースの稼働状況を簡単に把握するための関数です。この関数では,tasklistコマンドで運用管理エージェントのプロセスの有無を確認します。
IsAliveリソースの稼働状況を厳密に把握するための関数です。この関数では,運用管理エージェントのcheckコマンドで運用管理エージェントが正常に動作しているかを確認します。
Offline汎用スクリプトリソースのオフライン時に実行される関数です。この関数で運用管理エージェントと論理サーバを停止します。
Closeこの汎用スクリプトファイルが閉じるときに実行される関数です。
Terminate汎用スクリプトリソースの強制終了時に実行される関数です。

(3) 実行系の汎用スクリプトファイルの変数

実行系の汎用スクリプトファイルでは,必要に応じて次の表に示す変数の値を変更してください。

表21-3 実行系の汎用スクリプトファイルの変数(N:1リカバリシステムの場合)

変数名内容
oMngHostManagement Serverが稼働しているホスト
oUserManagement ServerにログインするためのログインID
oPassManagement Serverにログインするためのパスワード

(4) プライベートプロパティの設定

N:1リカバリシステムの汎用スクリプトファイルでは,一つのスクリプトファイルを複数の仮想サーバから参照します。このため,汎用スクリプトファイルがサーバごとの設定を参照できるように,プライベートプロパティを使用します。

仮想サーバごとにプライベートプロパティを設定してください。汎用スクリプトファイルに必要なプライベートプロパティを次の表に示します。

表21-4 汎用スクリプトファイルに必要なプライベートプロパティ

プライベートプロパティ内容(例)
ServerNameJ2EEサーバ名
指定例:MyServer
StatusPathインプロセスOTSのステータスパス
指定例:I:¥otsstatus
IPAddress仮想サーバのIPアドレス
指定例:172.16.12.31
HostName仮想サーバ名
指定例:Server1

プライベートプロパティはclusterコマンドで設定します。clusterコマンドについては,Windows Server 2003のマニュアルを参照してください。次にclusterコマンドを使用したプライベートプロパティの設定例を示します。

cluster res Script1 /priv ServerName=MyServer
cluster res Script1 /priv StatusPath="I:¥otsstatus"
cluster res Script1 /priv IPAddress=172.16.12.31
cluster res Script1 /priv HostName=Server1

cluster res Script2 /priv ServerName=MyServer
cluster res Script2 /priv StatusPath="J:¥otsstatus"
cluster res Script2 /priv IPAddress=172.16.12.32
cluster res Script2 /priv HostName=Server2

cluster res Script3 /priv ServerName=MyServer
cluster res Script3 /priv StatusPath="K:¥otsstatus"
cluster res Script3 /priv IPAddress=172.16.12.33
cluster res Script3 /priv HostName=Server3

cluster res Script4 /priv ServerName=MyServer2
cluster res Script4 /priv StatusPath="L:¥otsstatus"
cluster res Script4 /priv IPAddress=172.16.12.34
cluster res Script4 /priv HostName=Server4