windows-nt/Source/XPSP1/NT/base/cluster/admin/msclus/html/res.html

61 lines
1 KiB
HTML
Raw Normal View History

2020-09-26 03:20:57 -05:00
<HTML>
<HEAD>
<TITLE> Resources </TITLE>
<SCRIPT LANGUAGE="VBSCRIPT">
<!--
Option Explicit
Dim oCluster
Dim oProps
Dim sCluster
Dim oRes
Dim oProp
Dim oValues
Dim oValue
Dim oData
Dim oDatum
Dim oNewRes
Dim deleteit
Set oCluster = CreateObject("MSCluster.Cluster")
sCluster = InputBox( "Cluster to open?" )
oCluster.Open( sCluster )
Document.Write oCluster.Name & "<BR><BR>"
for each oRes in oCluster.Resources
Document.Write oRes.Name & "<BR><BR>"
Document.Write "<BR>Common Properties<BR><BR>"
for each oProp in oRes.CommonProperties
for each oValue in oProp.Values
for each oDatum in oValue.Data
Document.Write oProp.Name & " = " & oDatum & "<BR>"
next
next
next
Document.Write "<BR>Private Properties<BR><BR>"
for each oProp in oRes.PrivateProperties
for each oValue in oProp.Values
for each oDatum in oValue.Data
Document.Write oProp.Name & "<BR>" '& " = " & oDatum & "<BR>"
next
next
next
next
-->
</SCRIPT>
</HEAD>
<BODY>
</BODY>
</HTML>