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

<HTML>
<HEAD>
	<TITLE> Resources </TITLE>

	<SCRIPT LANGUAGE="VBSCRIPT">
	<!--

		Option Explicit

		Dim oCluster
		Dim oProps
		Dim sCluster
		Dim oRes
		Dim oProp
		Dim oValues
		Dim oValue
		Dim oData
		Dim oDatum
		Dim oNewRes
		Dim deleteit

		Set oCluster = CreateObject("MSCluster.Cluster")
		sCluster = InputBox( "Cluster to open?" )
		oCluster.Open( sCluster )

		Document.Write oCluster.Name & "<BR><BR>"

		for each oRes in oCluster.Resources
			Document.Write oRes.Name & "<BR><BR>"

			Document.Write "<BR>Common Properties<BR><BR>"
			for each oProp in oRes.CommonProperties
				for each oValue in oProp.Values
					for each oDatum in oValue.Data
						Document.Write oProp.Name & " = " & oDatum & "<BR>"
					next
				next
			next

			Document.Write "<BR>Private Properties<BR><BR>"

			for each oProp in oRes.PrivateProperties
				for each oValue in oProp.Values
					for each oDatum in oValue.Data
						Document.Write oProp.Name & "<BR>"					'& " = " & oDatum & "<BR>"
					next
				next
			next
		next

	-->
	</SCRIPT>
</HEAD>

<BODY>

</BODY>

</HTML>