68 lines
1.4 KiB
HTML
68 lines
1.4 KiB
HTML
<HTML>
|
|
<HEAD>
|
|
<TITLE> Node Properties</TITLE>
|
|
|
|
<SCRIPT LANGUAGE="VBSCRIPT">
|
|
<!--
|
|
|
|
Option Explicit
|
|
|
|
Dim oCluster
|
|
Dim oProps
|
|
Dim sCluster
|
|
Dim nCount
|
|
Dim oNode
|
|
Dim oProp
|
|
Dim oQuorum
|
|
Dim oResGroup
|
|
|
|
Set oCluster = CreateObject("MSCluster.Cluster")
|
|
sCluster = InputBox( "Cluster to open?" )
|
|
oCluster.Open( sCluster )
|
|
|
|
Document.Write oCluster.Name & "<BR>"
|
|
|
|
Set oQuorum = oCluster.QuorumResource
|
|
|
|
for each oProp in oQuorum.CommonProperties
|
|
Document.Write oProp.Name & " = " & oProp.Value & "<BR>"
|
|
next
|
|
|
|
Document.Write "QuorumLogSize = " & oCluster.QuorumLogSize & "<BR>"
|
|
Document.Write "QuorumPath = " & oCluster.QuorumPath & "<BR>"
|
|
|
|
for each oNode in oCluster.Nodes
|
|
Document.Write oNode.Name & "<BR>"
|
|
|
|
Document.Write "Common Properties<BR>"
|
|
Set oProps = oNode.CommonProperties
|
|
for each oProp in oProps
|
|
Document.Write oProp.Name & " = " & oProp.Value & "<BR>"
|
|
next
|
|
|
|
'Document.Write "Private Properties<BR>"
|
|
'Set oProps = oNode.PrivateProperties
|
|
'for each oProp in oProps
|
|
' Document.Write oProp.Name & " = " & oProp.Value & "<BR>"
|
|
'next
|
|
|
|
for each oResGroup in oNode.ResourceGroups
|
|
Document.Write "ResGroup name is " & oResGroup.Name & "<BR>"
|
|
next
|
|
next
|
|
|
|
'set oProp = oProps.Item("Description")
|
|
'oProp.Value = "This is the new description."
|
|
'oProps.SaveChanges
|
|
|
|
-->
|
|
</SCRIPT>
|
|
</HEAD>
|
|
|
|
<BODY>
|
|
|
|
</BODY>
|
|
|
|
</HTML>
|
|
|