Deploying Virtual Connect Enterprise Manageron Microsoft Cluster Service

<script language="VBScript">
<![CDATA[
Option Explicit
On Error Resume Next
DIM host
host = "" 'null defaults "this host"
cluConnect host,objCluster
WScript.echo "Creating VCEM Cluster resources using cluster: " & objCluster.Name
DIM cluNodes
DIM n
cluEnumNodes objCluster, cluNodes
Wscript.Echo "There are " & uBound(cluNodes) & " nodes in cluster."
For n = 0 to UBound(cluNodes) - 1
Wscript.Echo cluNodes(n)
Next
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Does given resource exist?
'
Dim cluGroup
Dim cluResource
Dim cluResProps
Dim cluResIP
Dim cluNetName
Dim cluDisk
Dim cluService
On Error Goto 0
'Set cluGroup = objCluster.ResourceGroups.Item(grpName)
'ErrorCheck "check Group", Err.Description
'If cluGroup Is Nothing Then
' Err.Reset
Set cluGroup = objCluster.ResourceGroups.CreateItem(grpName)
If Err.Number <> 0 Then
ErrorCheck "Create cluGroup", Err.Description
Else
WScript.Echo "OK! - VCEM Cluster group '" & grpName & "' created."
End If
' IP Address Resource
Set cluResIP = cluGroup.Resources.CreateItem(simIP,"IP Address",0)
Set cluResProps = cluResIP.PrivateProperties
cluResProps.Item("Network").Value = simIPNW
cluResProps.Item("Address").Value = simIPAddr
cluResProps.Item("SubNetMask").Value = simIPNetmask
cluResProps.Item("EnableNetBIOS").Value = 1
cluResProps.SaveChanges
If Err.Number <> 0 Then
ErrorCheck "Create cluResIP", Err.Description
Else
WScript.Echo "OK! - VCEM Cluster IP Resource '" & simIP & "' created."
End If
'Network Name Resource
Set cluNetName = cluGroup.Resources.CreateItem(simNetname,"Network Name",0)
Set cluResProps = cluNetName.PrivateProperties
cluResProps.Item("Name").Value = simNWname
cluNetName.Dependencies.AddItem(cluResIP)
cluResProps.SaveChanges
If Err.Number <> 0 Then
ErrorCheck "Create cluNetName", Err.Description
Else
WScript.Echo "OK! - VCEM Cluster Network Name Resource '" _
& simNetName & "' created."
End If
' VCEM Disk Resource
On Error Goto 0
Dim simDiskSig