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

27
' Dereferences global objects. Used with cluConnect.
'
Set objCluster = Nothing
End Function
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Sub cluEnumNodes(cluster, nodes)
'
' Purpose: list all nodes configured in cluster definition.
' If no cluster name, then "this cluster" is default.
'
Dim objNode
ReDim nodes(0)
Dim n
n = 0
for each objNode in cluster.Nodes
nodes(n) = objNode.Name
n = n + 1
ReDim Preserve nodes(n)
next
End Sub
Public Function getClusterResources
'On Error Resume Next
Dim collCluResources, counter, res, obj, cluNumRes
Set collCluResources = objCluster.Resources
cluNumRes = collCluResources.Count
'Wscript.Echo "Found " & cluNumRes & " Resources" 'DEBUG
ReDim arrCluRes(cluNumRes)
For counter = 1 to cluNumRes
Set res = collCluResources.Item(counter)
arrCluRes(counter) = res.Name
'WScript.Echo "Resource: " & arrCluRes(counter) 'DEBUG
Next
End Function
Public Function checkResource( resName )
On Error Resume Next
Dim cluRes
For Each cluRes In arrCluRes
If resName = cluRes Then
'Wscript.Echo "Found " & resName & " in resource array" 'DEBUG
checkResource = True
Exit Function
End If
Next
' if we get here w/o Exiting: then the resource wasn't found
checkResource = False
End Function
Public Function verifySvc( svcName, hostName )
On Error Resume Next
Dim objLocator, objService
Dim objMySvc, colSvcs
WMIconnect hostname, objService
Set colSvcs = objService.ExecQuery("Select * from Win32_Service Where Name = '" &
svcName & "'")
'WScript.Echo "Err: " & Err.Number & Err.Description
If colSvcs.Count < 1 Then
WarnMsg "Missing required service '" &_
svcName &_
"' on node " & hostName
Else For Each objMySvc in colSvcs
If objMySvc.Name = svcName Then
WScript.Echo "OK! - '" & _
objMySvc.DisplayName & _