76 lines
1.9 KiB
HTML
76 lines
1.9 KiB
HTML
|
<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>
|
||
|
|
|