23 lines
372 B
Plaintext
23 lines
372 B
Plaintext
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
|