Installing and upgrading to HP Insight Software 6.0 on Windows Server 2003 R2 MSCS for high availability
39
For Each objPartition in objPartitions
WMIquery = "Win32_DiskPartition.DeviceId='" _
&
objPartition.DeviceId
&
"'"
Set objDisks = objWMIService.AssociatorsOf(WMIquery,,"Win32_DiskDrive")
Errorcheck "objDisks", Err.Description
If objDisks.count > 1 Then
Err.Number = 999
Errorcheck "objDisks", "More disks retrieved than expected."
End If
For Each objDisk in objDisks
disksig =
objDisk.Signature
Exit
Function
Next
Next
End Function
CMS-HA_script.wsf
The CMS-HA_script.wsf file contains the cluster resources creation script. It includes a job that
determines if prerequisite conditions for creating the CMS-HA cluster resources are satisfied, and a
job that creates the required CMS-HA cluster resources.
<?xml version="1.0"?>
<!--============================================================
; CMS-HA_script.wsf
; This is a Microsoft Windows Script Host file (.wsf)
; It consists of two job steps:
; 1) JOB:check - determines if the prerequisite conditions
; for creating the CMS-HA cluster resources
; are satisfied.
;
; 2) JOB:define - creates the CMS-HA cluster resource
; definitions
;
; Execution example:
; cscript CMS-HA_script.wsf //job:check
;
; © Copyright 2010 Hewlett-Packard Development Company, L.P.
=============================================================-->
<package id="Main">
<job id="check">
<!--==============================================================
; 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" />
<!--============================================================
; The following lines include the specified external file for
; this job.
============================================================-->
<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 to "this host"
Dim cluGroup
Dim hRes, resKey
Dim hResInv