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
375 B
22 lines
375 B
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
|