<HTML>
<HEAD>
<TITLE> Node Properties</TITLE>
<SCRIPT LANGUAGE="VBSCRIPT">
<!--
Option Explicit
Dim oCluster
Dim oProps
Dim sCluster
Dim nCount
Dim oNode
Dim oProp
Dim oQuorum
Dim oResGroup
Set oCluster = CreateObject("MSCluster.Cluster")
sCluster = InputBox( "Cluster to open?" )
oCluster.Open( sCluster )
Document.Write oCluster.Name & "<BR>"
Set oQuorum = oCluster.QuorumResource
for each oProp in oQuorum.CommonProperties
Document.Write oProp.Name & " = " & oProp.Value & "<BR>"
next
Document.Write "QuorumLogSize = " & oCluster.QuorumLogSize & "<BR>"
Document.Write "QuorumPath = " & oCluster.QuorumPath & "<BR>"
for each oNode in oCluster.Nodes
Document.Write oNode.Name & "<BR>"
Document.Write "Common Properties<BR>"
Set oProps = oNode.CommonProperties
for each oProp in oProps
Document.Write oProp.Name & " = " & oProp.Value & "<BR>"
next
'Document.Write "Private Properties<BR>"
'Set oProps = oNode.PrivateProperties
'for each oProp in oProps
' Document.Write oProp.Name & " = " & oProp.Value & "<BR>"
'next
for each oResGroup in oNode.ResourceGroups
Document.Write "ResGroup name is " & oResGroup.Name & "<BR>"
next
next
'set oProp = oProps.Item("Description")
'oProp.Value = "This is the new description."
'oProps.SaveChanges
-->
</SCRIPT>
</HEAD>
<BODY>
</BODY>
</HTML>