44 lines
932 B
HTML
44 lines
932 B
HTML
<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>
|
|
|