Ich habs jetzt geschaft.
Damit
Dim dn As String
dn = entry.dn
Set entry = New LDAPEntry
entry.DN = dn
status = entry.replaceAttribute("company", Evaluate(|@text("Obermacker")|))
status = session1.modifyEntry(entry)
wird der Wert im Attribut "company" auf "Obermacker" geändert.
Erst seitdem ich den (bereits bestehenden) Eintrag im LDAP neu erzeuge und mit dem gleichen "distinguishedName" setze, funktioniert es.
Wenn ich das evaluate nicht setze, sieht der Wert im AD nicht gut aus... [] [] [] [] usw.
Warum das evaluate und warum den Eintrag neu anlegen- keine Ahnung :-:
Mehr als Company habe ich auch noch nicht geändert.
Das kann ja jetzt immer noch ausgehen, wie das Horneberger Schiessen... Wenigstens bin ich mal einen Schritt weiter :o
Mal sehen, ich spiel damit noch ein wenig.
Matthias