Installing and upgrading to HP Insight Software 6.0 on Windows Server 2003 R2 MSCS for high availability

36
Array("cpqsrhmo", "CMS-HA VCRM Service", "CMS-HA Disk"), _
Array("hpSMPsvc", "CMS-HA SMP Service", "CMS-HA Disk"), _
Array("hpwebSMPsvc","CMS-HA SMP Web Service", "CMS-HA Disk"), _
Array("hpvmmsvc", "CMS-HA VMM Service", "CMS-HA Disk", _
"CMS-HA
SIM Service"), _
Array("AppDisc", "CMS-HA AD Service", "CMS-HA Disk"), _
Array("HP Global Workload Manager CMS", "CMS-HA gWLM Service", _
"CMS-HA Disk"), _
Array("hp_agentless_service", "CMS-HA Agentless Collector", _
"CMS-HA Disk", "CMS-HA SIM Service", "CMS-HA gWLM Service"), _
Array("esa", "CMS-HA ESA
Service", "CMS-HA SIM Service", _
"CMS-HA Disk"), _
Array("hpcsi", "CMS-HA SPM Service", "CMS-HA ESA Service", _
"CMS-HA Disk"), _
Array("HP Logical Server Automation", "CMS-HA LSA Service", _
"CMS-HA Disk", "CMS-HA SIM Service", "CMS-HA gWLM Service", _
"CMS-HA VMM Service", "CMS-HA SPM Service"), _
Array("hpio", "CMS-HA HP-IO Service", _
"CMS-HA Disk", "CMS-HA SIM Service", "CMS-HA gWLM Service", _
"CMS-HA LSA Service", "CMS-HA VMM Service", "CMS-HA SPM Service") _
)
CMS-HA_common.vbs
The CMS-HA_common.vbs script file contains global data and common functions used by the
CMS-HA_script.wsf cluster resources creation script.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
' CMS-HA_common.vbs
'
' Contains global data and common functions.
'
' © Copyright 2010 Hewlett-Packard Development Company, L.P.
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Public objCluster, arrCluRes(), iWarn
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Common warning routine. Keeps track if a prereq is missing
'
Public Function WarnMsg( strWarn )
WScript.Echo "WARNING - " & strWarn
iWarn = iWarn + 1
End Function
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Common error catching and reporting routine
'
Public Function ErrorCheck( strTask, strDesc )
'On Error Resume Next
'Wscript.Echo "Error Checking " & offset & " " & strTask & " " & strDesc ' DEBUG
If Err.Number <> 0 Then
Wscript.Echo "Error#
" _
& Err.Number &
": " _
& strTask & " - "
& strDesc
iWarn = iWarn + 1
End If
Wscript.Echo
Err.Clear
End Function
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Array manipulation
'
Public Function invertHash( ByRef hash, ByRef inverted )
On Error Resume Next
Dim key