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.cluster { margin-top: 1em; margin-bottom: 0em; margin-left: 0em; } p.resource { margin-top: 1em; margin-bottom: 0em; margin-left: 5em; } p.proptype { margin-top: 0em; margin-bottom: 0em; margin-left: 10em; } p.property { margin-top: 0em; margin-bottom: 0em; margin-left: 15em; } --></style>
<TITLE> Node Properties</TITLE>
<SCRIPT LANGUAGE="VBSCRIPT"> <!--
Option Explicit
Dim oCluster Dim oProps Dim sCluster Dim oRes Dim oProp
Set oCluster = CreateObject("MSCluster.Cluster") sCluster = InputBox("Cluster to open?", "GALENB-CLUS") oCluster.Open( sCluster )
Document.Write "<B><p class=cluster>Cluster name is " & oCluster.Name & "<BR></B>"
for each oRes in oCluster.Resources Document.Write "<B><p class=resource>Resource name is " & oRes.Name & "<BR></B>"
Document.Write "<BR><p class=proptype>Common Properties<BR><BR>" Set oProps = oRes.CommonProperties for each oProp in oProps Document.Write "<p class=property>" & oProp.Name & " = " & oProp.Value & "<BR>" next
Document.Write "<BR><p class=proptype>Common RO Properties<BR><BR>" Set oProps = oRes.CommonROProperties for each oProp in oProps Document.Write "<p class=property>" & oProp.Name & " = " & oProp.Value & "<BR>" next
Document.Write "<BR><p class=proptype>Private Properties<BR><BR>" for each oProp in oRes.PrivateProperties if oProp.Format <> 1 then Document.Write "<p class=property>" & oProp.Name & " = " & oProp.Value & "<BR>" end if next
Document.Write "<BR><p class=proptype>Private RO Properties<BR><BR>" for each oProp in oRes.PrivateROProperties if oProp.Format <> 1 then Document.Write "<p class=property>" & oProp.Name & " = " & oProp.Value & "<BR>" end if next next
--> </SCRIPT></HEAD>
<BODY>
</BODY>
</HTML>
|
