23 lines
353 B
Plaintext
23 lines
353 B
Plaintext
Option Explicit
|
|
On Error Resume Next
|
|
|
|
Main
|
|
|
|
Sub Main
|
|
|
|
Dim sDomain
|
|
Dim oClusApp
|
|
Dim sCluster
|
|
|
|
Set oClusApp = CreateObject("MSCluster.ClusApplication")
|
|
|
|
for each sDomain in oClusApp.DomainNames
|
|
MsgBox "Domain name is " & sDomain
|
|
|
|
for each sCluster in oClusApp.ClusterNames( sDomain )
|
|
MsgBox "Cluster name is " & sCluster
|
|
next
|
|
next
|
|
|
|
End Sub
|