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

32
cluResProps.SaveChanges
If Err.Number <> 0 Then
ErrorCheck "Create cluNetName", Err.Description
Else
WScript.Echo "OK! - SIM Cluster Network Name Resource '" _
& simNetName & "' created."
End If
' SIM Disk Resource
On Error Goto 0
Dim simDiskSig
getdiskSig simDiskDrive, simDiskSig
Set cluDisk = cluGroup.Resources.CreateItem(simDisk,_
"Physical Disk",0)
Set cluResProps = cluDisk.PrivateProperties
cluResProps.Item("Signature").Value = simDiskSig
cluResProps.SaveChanges
If Err.Number <> 0 Then
ErrorCheck "Save cluDisk", Err.Description
Else
WScript.Echo "OK! - VSE Cluster Disk Resource '" _
& simDisk & "' created."
End If
' Generic Service Resources
For n = 0 to UBOUND(arrSvcName,2)
'This is a very long statement. Watch line wrap.
Set cluService = cluGroup.Resources.CreateItem(arrSvcName(1,n),"Generic Service",0)
'End of long statement.
Set cluResProps = cluService.PrivateProperties
cluResProps.Item("ServiceName").Value = arrSvcName(0,n)
cluService.Dependencies.AddItem(cluDisk)
cluResProps.SaveChanges
If Err.Number <> 0 Then
ErrorCheck "Create VSE Service", Err.Description
Else
WScript.Echo "OK! - VSE Service Resource '" _
& arrSvcName(1, n) & "' created."
End If
Next
' Bring HA-VSE Group online
On Error Goto 0
Dim ol
ol=cluGroup.Online(5)
If Err.Number <> 0 Then
ErrorCheck "cluGroup Online", Err.Description
Else
WScript.Echo "OK! - VSE Cluster Group Online on this node."
End If
' Cleanup; deref objects
Set cluResProps = Nothing
Set cluService = Nothing
Set cluDisk = Nothing
Set cluNetName = Nothing
Set cluResIP = Nothing
Set cluGroup = Nothing
Set objCluster = Nothing
]]>
</script>
</job>
</package>