Active Directory Replikation per VB anstoßen

Hallo,

ich habe mit Visual Basic ein Programm geschrieben, was auf Knopfdruck eine Replikation anstoßt, zum Beispiel nach einer Kennwortänderung im AD, damit diese sofort auf alle DC´s repliziert wird. Ich habs in einer Testdomaine getestet(2 Server) da läuft das Programm einwandfrei. In der Echtdomaine gibt er mir allerdings eine Fehlermeldung. (Laufzeitfehler '429' Objecterstellung durch Active-X Komponente nicht möglich) Was kann das sein?

Der Quellcode sieht folgendermaßen aus:

Set comDLL = CreateObject("IADsTools.DCFunctions")  
Result1 = comDLL.ReplicaSync("Server1", "dc=domain,dc=loc", "QuellServer")  
Result2 = comDLL.ReplicaSync("Server2", "dc=domain,dc=loc", "QuellServer")  
Result3 = comDLL.ReplicaSync("Server3", "dc=domain,dc=loc", "QuellServer")  
Result4 = comDLL.ReplicaSync("Server4", "dc=domain,dc=loc", "QuellServer")  
Result5 = comDLL.ReplicaSync("Server5", "dc=domain,dc=loc", "QuellServer")  
Result6 = comDLL.ReplicaSync("Server6", "dc=domain,dc=loc", "QuellServer")  
Result7 = comDLL.ReplicaSync("Server7", "dc=domain,dc=loc", "QuellServer")  

If Result1 = 1 Then
  MsgBox "Fehler bei der Synchronisation mit Server1."  
ElseIf Result2 = 1 Then
  MsgBox "Fehler bei der Synchronisation mit Server2."  
ElseIf Result3 = 1 Then
  MsgBox "Fehler bei der Synchronisation mit Server3."  
ElseIf Result4 = 1 Then
  MsgBox "Fehler bei der Synchronisation mit Server4."  
ElseIf Result5 = 1 Then
  MsgBox "Fehler bei der Synchronisation mit Server5."  
ElseIf Result6 = 1 Then
  MsgBox "Fehler bei der Synchronisation mit Server6."  
ElseIf Result7 = 1 Then
  MsgBox "Fehler bei der Synchronisation mit Server7."  
Else
  MsgBox "Die Synchronisation war erfolgreich."  
End If