This section explains the resources necessary before installation.
[Windows Manager]
Client Access Point
An access point is necessary in order to enable communication between the ROR console, managed servers, and managers. The IP addresses and network names used for access are allocated.
When the same access point will be used for access by the ROR console and the admin LAN
Prepare a single IP address and network name.
When different access points will be used for access by the ROR console and the admin LAN
Prepare a pair of IP addresses and network names.
Shared Disk for Managers
Prepare at least one storage volume (LUN) to store data shared by the managers.
For the necessary disk space for the shared disk, total the values for Installation_folder and Image_file_storage_folder indicated for managers in "Table-Dynamic Disk Space" in "6.1.1.7 Dynamic Disk Space" in the "Overview", and secure the necessary amount of disk space.
Generic Scripts for Manager Services
Create the generic script files for (starting and stopping) the following manager services:
Resource Coordinator Web Server(Apache)
Resource Coordinator Sub Web Server(Mongrel)
Resource Coordinator Sub Web Server(Mongrel2)
Create a script file with the following content for each of the services.
The name of the file is optional, but the file extension must be ".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='Service_name'")
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='Service_name'")
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='Service_name'")
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='Service_name'")
strServiceState = objService.state
if ucase(strServiceState) = "RUNNING" Then
IsAlive= True
Else
IsAlive = False
End If
End Function |
Specify the following service names for four occurrences of "service_name" in the script.
ResourceCoordinatorWebServer(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='service_name'")
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='service_name'")
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='service_name'")
strServiceState = objService.state
if ucase(strServiceState) = "RUNNING" Then
LooksAlive = True
Else
liveflag=False
set objFile = CreateObject("Scripting.FileSystemObject")
if objFile.FileExists("Installation_folder\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='service_name'")
strServiceState = objService.state
if ucase(strServiceState) = "RUNNING" Then
IsAlive= True
Else
liveflag=False
set objFile = CreateObject("Scripting.FileSystemObject")
if objFile.FileExists("Installation_folder\SVROR\Manager\Rails\db\rcx.restarting") Then
liveflag = True
End If
IsAlive = liveflag
End If
End Function |
Specify the following service names for four occurrences of "service_name" in the script.
Resource Coordinator Sub Web Server(Mongrel)
Resource Coordinator Sub Web Server(Mongrel2)
Specify the installation folder of the manager for the two occurrences of "Installation_folder" in the script.
[Linux Manager]
Takeover Logical IP Address for the Manager
When operating managers in cluster systems, allocate a new, unique IP address on the network to GLS.
If the IP address used for access from the ROR console differs from the above IP address, prepare another logical IP address and allocate it to GLS.
When using an IP address that is already being used for an existing operation (cluster application), there is no need to allocate a new IP address for the manager.
Shared Disk for Managers
Prepare a GDS volume to store shared data for managers.
For the necessary disk space for the shared disk, total the values indicated for "[Linux Manager]" in "Table-Dynamic Disk Space" in "6.1.1.7 Dynamic Disk Space" in the "Overview", and secure the necessary amount of disk space.
