<HTML>
<HEAD>
<style>
<!-- body { font-family: Verdana, Arial; font-size: 75%; }
p.cluster { margin-top: 1em; margin-bottom: 0em; margin-left: 0em; }
p.restype { margin-top: 1em; margin-bottom: 0em; margin-left: 5em; }
p.resource { margin-top: 0em; margin-bottom: 0em; margin-left: 10em; }
p.property { margin-top: 0em; margin-bottom: 0em; margin-left: 15em; } -->
</style>
<TITLE> NetInterface</TITLE>
<SCRIPT LANGUAGE="VBSCRIPT">
<!--
Option Explicit
On Error Resume Next
Dim oCluster
Dim sCluster
Dim oNetInterface
Dim oNetwork
Dim oProp
Set oCluster = CreateObject("MSCluster.Cluster")
sCluster = InputBox( "Cluster to open?" )
oCluster.Open( sCluster )
Document.Write "<B><p class=cluster>" & oCluster.Name & "</B><BR>"
for each oNetwork in oCluster.Networks
Document.Write "<p class=restype>Network: " & oNetwork.Name & "<BR>"
for each oNetInterface in oNetwork.NetInterfaces
Document.Write "<p class=resource>Netinterface: " & oNetinterface.Name & "<BR>"
for each oProp in oNetInterface.CommonROProperties
Document.Write "<p class=property>" & oProp.Name & " : " & oProp.Value & "<BR>"
next
next
next
-->
</SCRIPT>
</HEAD>
<BODY>
</BODY>
</HTML>