Domänenübergreifender Zugriff per VBA

[Volker S. 0]

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.

bearbeitet 16. April 2013 von Volker S.

[Zoni 10]

Hi.

 

und willkommen an Board.

In diesem Thread http://www.mcseboard.de/topic/130588-ldap-abfrage-in-hta-an-andere-dom%C3%A4ne/ hatte auch jmd. die beschriebene Fehlermeldung.

Er verwendete statt  "user@domain2.local" folgende Syntax "domain2\user", also den Netbios-Namen der zweiten Domäne.

Vielleicht liegt es ja schon an einer solchen Kleinigkeit...

 

Viele Grüße

 

Zoni

[Volker S. 0]

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.

bearbeitet 16. April 2013 von Volker S.

[Volker S. 0]

Hat denn niemand eine Idee?