Installing and upgrading to HP Insight Software 6.0 on Windows Server 2003 R2 MSCS for high availability

42
DIM cluNodes
DIM n
cluEnumNodes objCluster, cluNodes
Wscript.Echo "There are " & uBound(cluNodes) & _
" nodes in cluster."
For n = 0 to UBound(cluNodes) - 1
Wscript.Echo cluNodes(n)
Next
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Does given resource exist?
'
Dim cluGroup
Dim cluResource
Dim cluResProps
Dim cluResIP
Dim cluNetName
Dim cluDisk
Dim cluService
On Error Goto 0
Set cluGroup = objCluster.ResourceGroups.Item(grpName)
If Err.Number <> 0 Then
ErrorCheck "cluGroup NOT FOUND", Err.Description
Else
WScript.Echo "OK! - SIM Cluster group '" & grpName _
& "'
is found."
End If
' IP Address Resource
Set cluResIP =
cluGroup.Resources.CreateItem(simIP,"IP Address",0)
Set cluResProps = cluResIP.PrivateProperties
cluResProps.Item("Network").Value = simIPNW
cluResProps.Item("Address").Value = simIPAddr
cluResProps.Item("SubNetMask").Value = simIPNetmask
cluResProps.Item("EnableNetBIOS").Value = 1
cluResProps.SaveChanges
If Err.Number <> 0 Then
ErrorCheck "Create cluResIP", Err.Description
Else
WScript.Echo "OK! - SIM Cluster IP Resource '" & _
simIP & "' created."
Set oRes.Item(simIP) = cluResIP
End If
' Network Name Resource
Set cluNetName =
cluGroup.Resources.CreateItem(simNetname,_
"Network Name",0)
Set cluResProps = cluNetName.PrivateProperties
cluResProps.Item("Name").Value = simNWname
cluNetName.Dependencies.AddItem(cluResIP)
cluResProps.SaveChanges
If Err.Number <> 0 Then
ErrorCheck "Create cluNetName", Err.Description
Else
WScript.Echo "OK! - SIM Cluster Network Name Resource '" _
& simNetName & _
"' created."
Set oRes.Item(simNetname) = cluNetName
End If
' SIM Disk Resource
On Error Goto 0
'%% Dim simDiskSig
'%% getdiskSig simDiskDrive, simDiskSig
'%%
'%%
Set cluDisk = cluGroup.Resources.Item(simDisk)
'%% Set cluResProps = cluDisk.PrivateProperties
'%% cluResProps.Item("Signature").Value = simDiskSig
'%% cluResProps.SaveChanges