windows-server-2003/base/cluster/admin/msclus/html/nodeprops.html

<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>