<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.depend { margin-top: 0em; margin-bottom: 0em; margin-left: 10em; } -->
</style>
<TITLE> Possible Owners</TITLE>
<SCRIPT LANGUAGE="VBSCRIPT">
<!--
Option Explicit
On Error Resume Next
Dim oCluster
Dim sCluster
Dim oRes
Dim oDependency
Dim oDependent
Dim oDummy, oDummy1
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 & "</B><BR>"
for each oRes in oCluster.Resources
Document.Write "<B><p class=resource>Resource name is " & oRes.Name & "</B><BR>"
for each oDependency in oRes.Dependencies
Document.Write "<p class=depend>Dependency resource name is " & oDependency.Name & "<BR>"
next
for each oDependent in oRes.Dependents
Document.Write "<p class=depend>Dependent resource name is " & oDependent.Name & "<BR>"
next
next
set oDummy = oCluster.Resources.Item( "Dummy" )
set oDummy1 = oCluster.Resources.Item( "Dummy1" )
oDummy.Offline 10
oDummy1.Offline 10
'oDummy.Dependencies.AddItem( oDummy1 )
oDummy1.Dependents.AddItem( oDummy )
Document.Write "<B><p class=resource>Resource name is " & oDummy.Name & "</B><BR>"
for each oDependent in oDummy.Dependents
Document.Write "<p class=depend>Dependent resource name is " & oDependent.Name & "<BR>"
next
oDummy.Dependencies.RemoveItem( 1 )
for each oDependent in oDummy.Dependents
Document.Write "<p class=depend>Dependent resource name is " & oDependent.Name & "<BR>"
next
oDummy.Online 10
oDummy1.Online 10
-->
</SCRIPT>
</HEAD>
<BODY>
</BODY>
</HTML>