Installing and upgrading to HP Insight Software 6.0 on Windows Server 2003 R2 MSCS for high availability
41
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) & "'
is
found."
Else
End
If
Wscript.Echo "OK! - Cluster resource '" &_
hres(resKey) & "' is not found."
Next
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 SIM cluster resource "_
& "definition is not recommended."
Else
WScript.Echo ""
WScript.Echo "Prerequisiste conditions appear to have "_
& "been met."
WScript.Echo "Continue with SIM cluster resource "_
& "definition."
End If
cluDisconnect
]]>
</script>
</job>
<!--============================================================
=============================================================-->
<job id="define">
<!--=========================================================
; 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.
============================================================-->
<reference guid="{F2E606E0-2631-11D1-89F1-00A0C90D061E}" version="1.0" />
<script language="VBScript" src="CMS-HA_defines.vbs"/>
<script language="VBScript" src="CMS-HA_common.vbs"/>
<script language="VBScript">
<![CDATA[
Option Explicit
On Error Resume Next
DIM host
host = "" 'null defaults "this host"
Dim oRes 'Associative array to store cluster Service Resource objects
Set oRes =
CreateObject("Scripting.Dictionary")
' Key is resource name; item is object
ptr.
cluConnect host,objCluster
WScript.echo "Creating SIM Cluster resources using cluster: "_
& objCluster.Name