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
|