Volker S.

Hat denn niemand eine Idee?

Hallo, dankeschön für die Willkommensgrüße. Auf diesen Thread bin ich per Googlesuche ebenfalls gestoßen. Leider hat es nix geholfen. Andererseits würde ich ja auch mit der zweiten Methode arbeiten. Allerdings weiß ich hier nicht, wie ich, wie in Methode 1, auf den subtree zugreifen kann, bzw. 'objectCategory=person' mit einbinde, um auch die Benutzer in den OU´s mit abzugrasen. Wenn ich bei der Objektzuweisung 'cn=users' mit angebe, dann kommen halt nur die Benutzer im Ordner User. Die OU´s bleiben außen vor.

Hallo per Script möchte ich von Domäne1 auf Domäne2 zugreifen: Sub Test() Dim ado As Object Dim objRS As Object Dim strCmd As String Set ado = CreateObject("ADODB.Connection") ado.PROVIDER = "ADsDSOObject" ado.Properties("User ID") = "administrator@dom2.local" ado.Properties("Password") = "gansgeheim" ado.Properties("Encrypt Password") = True ado.Open "ADCnn" strCmd = "<LDAP://dc=dom2,dc=local>;(objectCategory=person);samAccountName,distinguishedName,name,initials,givenName,sn;subtree" Set objRS = ado.Execute(strCmd) Do Until objRS.EOF ... ... ... objRS.MoveNext Loop Set objRS = Nothing Set objCmd = Nothing Set ado = Nothing End Sub Leider erhalte ich hier die Fehlermeldung: "Eine Referenzauswertung wurde vom Server zurückgesendet." Folgender Script funktioniert tadellos: Sub Test2() Dim dso As Object Dim ou As Object Dim obj As Object Set dso = GetObject("LDAP:") Set ou = dso.OpenDSObject("LDAP://dc=dom2,dc=local", "administrator@dom2.local", "gansgeheim", 1) For Each obj In ou ... ... ... Next Set obj = Nothing Set ou = Nothing Set dso = Nothing End Sub Hat evtl. jemand einen Tipp? Vielen Dank.