<HTML>
<HEAD>
<style>
<!--  body     { font-family: Verdana, Arial; font-size: 75%; }
      p.domain { margin-top: 1em; margin-bottom: 0em; margin-left: 0em; }
      p.cluster   { margin-top: 1em; margin-bottom: 0em; margin-left: 5em; }
      p.prop   { margin-top: 0em; margin-bottom: 0em; margin-left: 10em; } -->
</style>

<TITLE> Domain Names</TITLE>

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

		Option Explicit
		On Error Resume Next

		Dim sDomainName
		Dim oClusApp
		Dim sClusterName
		Dim oClusters

		Set oClusApp = CreateObject("MSCluster.ClusApplication")

		for each sDomainName in oClusApp.DomainNames
			Document.Write "<B><p class=domain>Domain name: " & sDomainName & "</B><BR>"

			set oClusters = oClusApp.ClusterNames( sDomainName )
			for each sClusterName in oClusters
				Document.Write "<p class=cluster>Cluster name is " & sClusterName & "<BR>"
			next
		next

	-->
	</SCRIPT>
</HEAD>

<BODY>

</BODY>

</HTML>