bayano
Goto Top

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

Ich hoffe mir kann von euch jemand helfen, ich hab zwar schon nach dem Fehler gegooglet aber nichts passendes gefunden.

MFG
Sascha

Content-ID: 59762

Url: https://administrator.de/forum/active-directory-replikation-per-vb-anstossen-59762.html

Ausgedruckt am: 24.12.2024 um 17:12 Uhr

Bayano
Bayano 01.06.2007 um 10:16:55 Uhr
Goto Top
Hallo,

ich hab den Fehler schon gefunden. Es fehlt die "iadstools.dll".

MFG
Sascha