Deploying Virtual Connect Enterprise Manageron Microsoft Cluster Service
HA-VCEM_script.wsf
The HA-VCEM_script.wsf file contains the cluster resources creation script. It includes a job that
determines if prerequisite conditions for creating the HA-VCEM cluster resources are satisfied, and a
job that creates the required HA-VCEM cluster resources.
<?xml version="1.0"?>
<!--==================================================================
; HA-VCEM_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 HA-VCEM
; cluster resources are satisfied.
;
; 2) JOB:define - creates the HA-VCEM cluster resource definitions
;
; Execution example:
; cscript HA-VCEM_script.wsf //job:check
;
; © Copyright 2007 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="HA-VCEM_defines.vbs"/>
<script language="VBScript" src="HA-VCEM_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
cluConnect host,objCluster
ErrorCheck "cluConnect", "Fail to connect to cluster on host: " & host & Err.Description
DIM cluNode
DIM n
On Error Goto 0
' Now check pre-req services availability on each node
WScript.Echo "Checking for required Windows services on cluster nodes..."
For Each cluNode in objCluster.Nodes
verifySvc snmpSvcName, cluNode.Name
ErrorCheck "verifySvc", "An error occured: " & Err.Description
verifySvc simSvcName, cluNode.Name
ErrorCheck "verifySvc", "An error occured: " & Err.Description
verifySvc opensshSvcName, cluNode.Name
ErrorCheck "verifySvc", "An error occured: " & Err.Description
verifySvc wmimapSvcName, cluNode.Name
ErrorCheck "verifySvc", "An error occured: " & Err.Description