Displays all domains with your network.

'function to list all available domains
Sub DisplayDomainSelect
 Dim adsNS
 Dim adsDomain
 Set adsNS = GetObject("WinNT:")
 adsNS.Filter = Array("domain")
 For Each adsDomain In adsNS
  Response.Write adsDomain.ADsPath & "<br>"
 Next
 Set adsNS = Nothing
End Sub