mirror of https://github.com/tongzx/nt5src
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.
23 lines
353 B
23 lines
353 B
Option Explicit
|
|
|
|
Main
|
|
|
|
Sub Main
|
|
|
|
Dim oCluster
|
|
Dim oNode
|
|
Dim sCluster
|
|
|
|
Set oCluster = CreateObject("MSCluster.Cluster")
|
|
|
|
sCluster = InputBox( "Cluster to open?" )
|
|
oCluster.Open( sCluster )
|
|
MsgBox oCluster.Name
|
|
|
|
MsgBox "Node count is " & oCluster.Nodes.Count
|
|
|
|
for each oNode in oCluster.Nodes
|
|
MsgBox "Node name is " & oNode.Name
|
|
next
|
|
|
|
End Sub
|