B.2.1 事前準備

ここでは、インストールする前に必要なリソースについて説明します。

【Windows】

クライアントアクセスポイント
RCコンソール、管理対象サーバと、マネージャ間の通信を行うために、アクセスポイントが必要です。アクセスに用いるIPアドレスとネットワーク名を割り当てます。
RCコンソールと管理LANを同じアクセスポイントを用いてアクセスする場合は、1組のIPアドレスとネットワーク名を用意します。RCコンソールと管理LANを異なるアクセスポイントを用いてアクセスする場合は、2組のIPアドレスとネットワーク名を用意します。
マネージャ用共有ディスク
マネージャの共有データを格納するストレージのボリューム(LUN)を最低1つ用意します。
共有ディスクの容量の算出は、「1.1.2.5 動的ディスク容量」の「表1.10 動的ディスク容量」のマネージャのインストールフォルダとイメージファイル格納フォルダの合計以上の空き容量を確保してください。

マネージャのサービスの汎用スクリプト

以下のマネージャの、サービスの汎用スクリプトファイル(起動/停止用)を作成します。

Resource Coordinator Web Server(Apache)
Resource Coordinator Sub Web Server(Mongrel)
Resource Coordinator Sub Web Server(Mongrel2)

以下のスクリプトファイルをそれぞれのサービスに対して作成します。

ファイル名は任意ですが、ファイルの拡張子は".vbs"にしてください。

Function Online()

    Dim objWmiProvider
    Dim objService
    Dim strServiceState

    ' Check to see if the service is running
    set objWmiProvider = GetObject("winmgmts:/root/cimv2")
    set objService = objWmiProvider.get("win32_service='サービス名'")
    strServiceState = objService.state

    If ucase(strServiceState) = "RUNNING" Then
        Online = True
    Else

        ' If the service is not running, try to start it.
        response = objService.StartService()

        ' response = 0  or 10 indicates that the request to start was accepted
        If ( response <> 0 ) and ( response <> 10 ) Then
            Online = False
        Else
            Online = True
        End If
    End If
End Function

Function Offline()

    Dim objWmiProvider
    Dim objService
    Dim strServiceState

    ' Check to see if the service is running
    set objWmiProvider = GetObject("winmgmts:/root/cimv2")
    set objService = objWmiProvider.get("win32_service='サービス名'")
    strServiceState = objService.state

    If ucase(strServiceState) = "RUNNING" Then

        response = objService.StopService()

        If ( response <> 0 ) and ( response <> 10 ) Then
            Offline = False
        Else
            Offline = True
        End If
    Else
            Offline = True
    End If
End Function

Function LooksAlive()

    Dim objWmiProvider
    Dim objService
    Dim strServiceState

    set objWmiProvider = GetObject("winmgmts:/root/cimv2")
    set objService = objWmiProvider.get("win32_service='サービス名'")
    strServiceState = objService.state

    if ucase(strServiceState) = "RUNNING" Then
        LooksAlive = True
    Else
        LooksAlive = False
    End If
End Function

Function IsAlive()

    Dim objWmiProvider
    Dim objService
    Dim strServiceState

    set objWmiProvider = GetObject("winmgmts:/root/cimv2")
    set objService = objWmiProvider.get("win32_service='サービス名'")
    strServiceState = objService.state

    if ucase(strServiceState) = "RUNNING" Then
        IsAlive= True
    Else
        IsAlive = False
    End If

End Function

スクリプト内の4ヵ所の"サービス名"には、以下の3つのサービス名を設定してください。

ResourceCoordinatorWebServer(Apache)
Resource Coordinator Sub Web Server(Mongrel)
Resource Coordinator Sub Web Server(Mongrel2)

【Linux】

マネージャ用の引継ぎ論理IPアドレス
クラスタシステムで運用する際にマネージャで使用する、ネットワーク上で一意なIPアドレスをPRIMECLUSTER GLSで新規に割り当てます。
RCコンソールからアクセスするIPアドレスを上記IPアドレスと異なるものにする場合は、別途論理IPアドレスを用意し、PRIMECLUSTER GLSで新規に割り当てます。
なお、既存の業務(クラスタアプリケーション)で使用しているIPアドレスを利用する場合は、新規にマネージャ用のIPアドレスを割り当てる必要はありません。
マネージャ用共用ディスク
マネージャの共用データを格納するPRIMECLUSTER GDSのボリュームを1つ準備します。
共用ディスクの容量の算出については、「1.1.2.5 動的ディスク容量」の「表1.10 動的ディスク容量」の「マネージャ【Linux】」に記載されている合計以上の空き容量を確保してください。