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.
22 lines
350 B
22 lines
350 B
Option Explicit
|
|
|
|
Main
|
|
|
|
Sub Main
|
|
|
|
Dim oClusters
|
|
Dim oClusApp
|
|
Dim nCount
|
|
Dim e
|
|
|
|
Set oClusApp = CreateObject("MSCluster.ClusApplication")
|
|
|
|
Set oClusters = oClusApp.ClusterNames("NTDEV")
|
|
nCount = oClusters.Count
|
|
MsgBox "NTDEV Domain cluster count is " & nCount
|
|
|
|
for e = 1 to nCount
|
|
MsgBox "Cluster name is " & oClusters.Item(e)
|
|
next
|
|
|
|
End Sub
|