Leaked source code of windows server 2003
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
|
<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>
|
