Using HP Insight Software from a Highly Available Central Management Server with Microsoft Cluster Service

31
; makes the library-defined constants and enums available to
; the script. The reference is job-specific. Each job must
; include this line in order to use the type library definitions.
============================================================-->
<reference guid="{F2E606E0-2631-11D1-89F1-00A0C90D061E}" version="1.0" />
<script language="VBScript" src="HA-VSE_defines.vbs"/>
<script language="VBScript" src="HA-VSE_common.vbs"/>
<script language="VBScript">
<![CDATA[
Option Explicit
On Error Resume Next
DIM host
host = "" 'null defaults "this host"
cluConnect host,objCluster
WScript.echo "Creating VSE Cluster resources using cluster: "_
& objCluster.Name
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.CreateItem(grpName)
If Err.Number <> 0 Then
ErrorCheck "Create cluGroup", Err.Description
Else
WScript.Echo "OK! - VSE Cluster group '" & grpName _
& "' created."
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."
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)