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