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.key { margin-top: 0em; margin-bottom: 0em; margin-left: 10em; } p.info { margin-top: 0em; margin-bottom: 0em; margin-left: 15em; } --></style>
<TITLE> Cluster Resoure and Resource Type Keys</TITLE>
<SCRIPT LANGUAGE="VBSCRIPT"> <!--
Option Explicit On Error Resume Next
Dim oCluster Dim sCluster Dim oRes Dim oResType Dim oKey Dim oRegKeys Dim oCryptoKeys Dim oResources Dim oResTypes
Set oCluster = CreateObject("MSCluster.Cluster") sCluster = InputBox( "Cluster to open?" ) oCluster.Open( sCluster ) Document.Write "<B><p class=cluster>Cluster name is " & oCluster.Name & "</B><BR>"
set oResources = oCluster.Resources for each oRes in oResources Document.Write "<p class=resource>Resource name is " & oRes.Name & "<BR>"
set oRegKeys = oRes.RegistryKeys for each oKey in oRegKeys Document.Write "<p class=key>Registry key is " & oKey & "<BR>" next
set oCryptoKeys = oRes.CryptoKeys for each oKey in oCryptoKeys Document.Write "<p class=key>Crypto key is " & oKey & "<BR>" next next
set oResTypes = oCluster.ResourceTypes for each oResType in oResTypes Document.Write "<p class=resource>Resource type name is " & oResType.Name & "<BR>"
set oRegKeys = oResType.RegistryKeys for each oKey in oRegKeys Document.Write "<p class=key>Registry key is " & oKey & "<BR>" next
set oCryptoKeys = oResType.CryptoKeys for each oKey in oCryptoKeys Document.Write "<p class=key>Crypto key is " & oKey & "<BR>" next next
--> </SCRIPT></HEAD>
<BODY>
</BODY>
</HTML>
|
