Nodes
<%
'A Helper function for formatting
Function NodeRef( NodeName )
NodeRef = _
"" & _
NodeName & _
""
End Function
'Open the Cluster and save it as a session variable
Dim Cluster
If Not IsEmpty( Request( "ServerName" ) ) Then
Set Cluster = CreateObject( "MSCluster.Cluster" )
Cluster.Open( Request("ServerName") )
Set Session("Cluster") = Cluster
End If
If IsObject( Cluster ) Then
Dim Nodes
Set Nodes = Cluster.Nodes
Dim nCount
nCount = Nodes.Count
Dim nIndex
For nIndex = 1 To nCount
Response.Write "
"
Response.Write NodeRef( Nodes(nIndex).Name )
Response.Write ""
Response.Write strRow
Next
Else
Response.Write "None"
End If
%>