mirror of https://github.com/tongzx/nt5src
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.
13 lines
221 B
13 lines
221 B
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
|