C.2.1 事前準備

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

【Windowsマネージャー】

クライアントアクセスポイント
RORコンソール、管理対象サーバと、マネージャー間の通信を行うために、アクセスポイントが必要です。アクセスに用いるIPアドレスとネットワーク名を割り当てます。
- RORコンソールと管理LANを同じアクセスポイントを用いてアクセスする場合
  1組のIPアドレスとネットワーク名を用意します。
- RORコンソールと管理LANを異なるアクセスポイントを用いてアクセスする場合
  2組のIPアドレスとネットワーク名を用意します。
マネージャー用共有ディスク
マネージャーの共有データを格納するストレージのボリューム(LUN)を最低1つ用意します。
共有ディスクの容量の算出は、「解説書」の「6.1.1.7 動的ディスク容量」の「表動的ディスク容量」のマネージャーのインストールフォルダーとイメージファイル格納フォルダーの合計以上の空き容量を確保してください。
マネージャーのサービスの汎用スクリプト
以下のマネージャーの、サービスの汎用スクリプトファイル(起動/停止用)を作成します。
- Resource Coordinator Web Server(Apache)
- Resource Coordinator Sub Web Server(Mongrel)
- Resource Coordinator Sub Web Server(Mongrel2)
以下のスクリプトファイルをそれぞれのサービスに対して作成します。
ファイル名は任意ですが、ファイルの拡張子は".vbs"にしてください。

Resource Coordinator Web Server(Apache)用

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)用

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
    Dim objFile

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

    if ucase(strServiceState) = "RUNNING" Then
        LooksAlive = True
    Else
        liveflag=False
        set objFile = CreateObject("Scripting.FileSystemObject")
        if objFile.FileExists("インストールフォルダー\SVROR\Manager\Rails\db\rcx.restarting") Then
            liveflag = True
        End If
        LooksAlive = liveflag
    End If
End Function

Function IsAlive()

    Dim objWmiProvider
    Dim objService
    Dim strServiceState
    Dim objFile

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

    if ucase(strServiceState) = "RUNNING" Then
        IsAlive= True
    Else
        liveflag=False
        set objFile = CreateObject("Scripting.FileSystemObject")
        if objFile.FileExists("インストールフォルダー\SVROR\Manager\Rails\db\rcx.restarting") Then
            liveflag = True
        End If
        IsAlive = liveflag
    End If
End Function

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

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

スクリプト内の2ヶ所の"インストールフォルダー"には、マネージャーのインストール先を設定してください

【Linuxマネージャー】

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