windows-server-2003/base/cluster/admin/msclus/wsf/clusprops.wsf

<job id="Cluster Properties">

	<reference guid="{f2e606e0-2631-11d1-89f1-00a0c90d061e}" version="1.0" />

	<script language="VBScript">

		Option Explicit

		Dim oCluster
		Dim oProps
		Dim oProp

		Set oCluster = CreateObject("MSCluster.Cluster")
		oCluster.Open( "galenb-clus" )

		Set oProps = oCluster.CommonProperties
		for each oProp in oProps
			if oProp.Format <> CLUSPROP_FORMAT_BINARY then
				MsgBox oProp.Name & " = " & oProp.Value
			end if
		next

	</script>
</job>