61 lines
1 KiB
HTML
61 lines
1 KiB
HTML
<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>
|
|
|