Gets the next global catalog in the forest.
ActiveDirectory.NextGlobalCatalog
None.
String.
To enumerate the global catalogs in the forest, enter:
Dim objActiveDirectory Dim strGlobalCatalog Set objActiveDirectory = CreateObject("McActiveDir.ActiveDirectory") If objActiveDirectory.RefreshGlobalCatalogs Then strGlobalCatalog = objActiveDirectory.NextGlobalCatalog() While NOT (strGlobalCatalog = "") strGlobalCatalog = objActiveDirectory.NextGlobalCatalog() Wend End If Set objActiveDirectory = Nothing