B.2.1 事前準備

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

【Windows】

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

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

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

Resource Coordinator Web Server(Apache)
Resource Coordinator Sub Web Server(Mongrel)
Resource Coordinator Sub Web Server(Mongrel2)
Resource Coordinator Sub Web Server(Mongrel3)
Resource Coordinator Sub Web Server(Mongrel4)
Resource Coordinator Sub Web Server(Mongrel5)

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

ファイル名は任意ですが、ファイルの拡張子は".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ヵ所の"サービス名"には、以下のサービス名を設定してください。

ResourceCoordinatorWebServer(Apache)
Resource Coordinator Sub Web Server(Mongrel)
Resource Coordinator Sub Web Server(Mongrel2)
Resource Coordinator Sub Web Server(Mongrel3)
Resource Coordinator Sub Web Server(Mongrel4)
Resource Coordinator Sub Web Server(Mongrel5)

注意

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

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

【Linux】

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