Deploying Virtual Connect Enterprise Manageron Microsoft Cluster Service

ManualsBrandsHP ManualsSoftwareHP Virtual Connect Enterprise Manager including 1yr 24x7 Support Single c7000 Enclosure Lic

WSCript.Echo ""

WScript.Echo "Checking if VCEM cluster resources can be defined..."

On Error Resume Next 'This will allow execution if grpName does not exist.

Set cluGroup = objCluster.ResourceGroups.Item(grpName)

If cluGroup Is Nothing Then

WScript.Echo "OK! - Cluster Group '" & grpName & "'"

Else

WarnMsg "Cluster Group '" & grpName & "' already exists."

End If

On Error Goto 0

Set hRes = CreateObject("Scripting.Dictionary")

hRes.Add "hasimDisk", simDisk

hRes.Add "hasimNetname", simNetname

hRes.Add "hasimIP", simIP

hRes.Add "hasimWMapSvc", simWMapSvc

hRes.Add "hasimSvc", simSvc

hRes.Add "hasimSSHSvc", simSSHSvc

' create an inverted hash to more easily compare against the set of keys,

' in this case, the resource names assigned above

Set hResInv = CreateObject("Scripting.Dictionary")

invertHash hRes, hResInv

getClusterResources

ErrorCheck "getClusterResources", "Error encountered: " & Err.Description

'loop thru resource strings, to verify that it matches the hash configured above

' If we find a match of a resource, that may prevent it from being created by

' the next job step.

For Each resKey In hRes.Keys

If checkResource (hres(resKey)) = True Then

WarnMSg "Cluster resource '" &_

hres(resKey) & "' already exists."

Else

Wscript.Echo "OK! - Cluster resource '" &_

hres(resKey) & "'"

End If

ErrorCheck "checkResource", "Error encountered: " &_

Err.Description & hres(resKey)

If iWarn > 0 Then

WScript.Echo ""

WScript.Echo "There have been " & iWarn & " warnings."

WScript.Echo "Some prerequisiste conditions have not been met."

WScript.Echo "Continuing with VCEM cluster resource definition is not recommended."

Else

WScript.Echo ""

WScript.Echo "Prerequisiste conditions appear to have been met."

WScript.Echo "Continue with VCEM cluster resource definition."

End If

cluDisconnect

]]>

</script>

</job>

<!--==============================================================

================================================================-->

<!--==============================================================

; The following line references the MSCLUS type library, which

; 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.

===============================================================-->