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.