Gets the next replication partner for the domain controller.
ActiveDirectory.NextReplicationPartner
None.
String.
To enumerate the replication partners for a domain controller, enter:
Dim objActiveDirectory Dim strReplicationPartner Set objActiveDirectory = CreateObject("McActiveDir.ActiveDirectory") If objActiveDirectory.RefreshReplicationPartners Then strReplicationPartner = objActiveDirectory.NextReplicationPartner() While NOT (strReplicationPartner = "") strReplicationPartner = objActiveDirectory.NextReplicationPartner() Wend End If Set objActiveDirectory = Nothing