Source code of Windows XP (NT5)
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

  1. Option Explicit
  2. Dim oClusApp
  3. Dim oDomains
  4. Dim oDomain
  5. Set oClusApp = CreateObject("MSCluster.ClusApplication")
  6. Set oDomains = oClusApp.DomainNames
  7. for each oDomain in oDomains
  8. MsgBox "Domain name is " & oDomain
  9. next