Deploying Virtual Connect Enterprise Manageron Microsoft Cluster Service

getdiskSig simDiskDrive, simDiskSig
Set cluDisk = cluGroup.Resources.CreateItem(simDisk,"Physical Disk",0)
Set cluResProps = cluDisk.PrivateProperties
cluResProps.Item("Signature").Value = simDiskSig
cluResProps.SaveChanges
If Err.Number <> 0 Then
ErrorCheck "Save cluDisk", Err.Description
Else
WScript.Echo "OK! - VCEM Cluster Disk Resource '" _
& simDisk & "' created."
End If
' SIM Service Resource
Set cluService = cluGroup.Resources.CreateItem(simSvc,"Generic Service",0)
Set cluResProps = cluService.PrivateProperties
cluResProps.Item("ServiceName").Value = simSvcName
cluService.Dependencies.AddItem(cluDisk)
cluResProps.SaveChanges
If Err.Number <> 0 Then
ErrorCheck "Create cluSIMsvc", Err.Description
Else
WScript.Echo "OK! - VCEM Cluster SIM Service Resource '" _
& simSvc & "' created."
End If
' OpenSSH Service Resource
Set cluService = cluGroup.Resources.CreateItem(simSSHSvc,"Generic Service",0)
Set cluResProps = cluService.PrivateProperties
cluResProps.Item("ServiceName").Value = opensshSvcName
cluService.Dependencies.AddItem(cluDisk)
cluResProps.SaveChanges
If Err.Number <> 0 Then
ErrorCheck "Create cluSSHsvc", Err.Description
Else
WScript.Echo "OK! - VCEM Cluster OpenSSH Service Resource '" _
& simSSHSvc & "' created."
End If
' WMI Mapper Service Resource
Set cluService = cluGroup.Resources.CreateItem(simWMapSvc,"Generic Service",0)
Set cluResProps = cluService.PrivateProperties
cluResProps.Item("ServiceName").Value = wmimapSvcName
cluResProps.SaveChanges
If Err.Number <> 0 Then
ErrorCheck "Create cluWMIsvc", Err.Description
Else
WScript.Echo "OK! - VCEM Cluster WMIMapper Service Resource '" _
& simWMapSvc & "' created."
End If
' call SNMP to add 2nodes & cluster name
' Bring HA-VCEM Group online
On Error Goto 0
Dim ol
ol=cluGroup.Online(5)
If Err.Number <> 0 Then
ErrorCheck "cluGroup Online", Err.Description
Else
WScript.Echo "OK! - VCEM Cluster Group Online on this node."
End If
' Cleanup; deref objects
Set cluResProps = Nothing
Set cluService = Nothing
Set cluDisk = Nothing
Set cluNetName = Nothing
Set cluResIP = Nothing
Set cluGroup = Nothing
Set objCluster = Nothing
]]>
</script>