Deploying Virtual Connect Enterprise Manageron Microsoft Cluster Service
'
' 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
ReDim arrCluRes(cluNumRes)
For counter = 1 to cluNumRes
Set res = collCluResources.Item(counter)
arrCluRes(counter) = res.Name
Next
End Function
Public Function checkResource( resName )
On Error Resume Next
Dim cluRes
For Each cluRes In arrCluRes
If resName = cluRes Then
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 serivce '" &_
svcName &_
"' on node " & hostName
Else For Each objMySvc in colSvcs
If objMySvc.Name = svcName Then
WScript.Echo "OK! - '" & _
objMySvc.DisplayName & _
"' in state '" & objMySvc.State &_
"' on node " & hostName
Exit Function
Else