14 lines
221 B
Plaintext
14 lines
221 B
Plaintext
Option Explicit
|
|
|
|
Dim oClusApp
|
|
Dim oDomains
|
|
Dim oDomain
|
|
|
|
Set oClusApp = CreateObject("MSCluster.ClusApplication")
|
|
|
|
Set oDomains = oClusApp.DomainNames
|
|
|
|
for each oDomain in oDomains
|
|
MsgBox "Domain name is " & oDomain
|
|
next
|