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
|