65 lines
1.3 KiB
HTML
65 lines
1.3 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.property { margin-top: 0em; margin-bottom: 0em; margin-left: 10em; } -->
|
|
</style>
|
|
|
|
<TITLE> New Group</TITLE>
|
|
|
|
<SCRIPT LANGUAGE="VBSCRIPT">
|
|
<!--
|
|
|
|
Option Explicit
|
|
'On Error Resume Next
|
|
|
|
dim oCluster
|
|
dim oGroup
|
|
dim oRes
|
|
dim sCluster
|
|
dim oPrefNodes
|
|
dim bModified
|
|
dim nCount
|
|
dim oNodes
|
|
dim oNode
|
|
|
|
Set oCluster = CreateObject("MSCluster.Cluster")
|
|
sCluster = InputBox( "Cluster to open?" )
|
|
oCluster.Open( sCluster )
|
|
|
|
Document.Write "<B><p class=cluster>Cluster name is " & oCluster.Name & "</B><BR>"
|
|
|
|
set oGroup = oCluster.ResourceGroups.Item("Test3")
|
|
set oRes = oGroup.Resources.CreateItem( "TestRes", "8TestRes", 0 )
|
|
oRes.Online( 10 )
|
|
oRes.Offline( 10 )
|
|
|
|
set oPrefNodes = oGroup.PreferredOwnerNodes
|
|
|
|
set oNodes = oCluster.Nodes
|
|
for each oNode in oNodes
|
|
oPrefNodes.AddItem( oNode )
|
|
next
|
|
|
|
bModified = oPrefNodes.Modified
|
|
oPrefNodes.SaveChanges
|
|
|
|
bModified = oPrefNodes.Modified
|
|
oPrefNodes.Refresh
|
|
|
|
nCount = oPrefNodes.Count
|
|
|
|
oRes.Delete
|
|
-->
|
|
</SCRIPT>
|
|
</HEAD>
|
|
|
|
<BODY>
|
|
|
|
</BODY>
|
|
|
|
</HTML>
|
|
|