Leaked source code of windows server 2003
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
|
<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>
|
