Daten schreiben mittels Notes Agenten ins AD

Hallo Leute,

ich suche jetzt schon Tage lang im Web und finde keine Lösung. Ich möche mittels eines Agenten im Active Directory, Daten ändern z.B.: beim AD User die Mail Adresse setzen.
Auslesen ist kein Problem aber setzen kann ich es nicht setzen. Die Rechte dazu sollten passen. Vieleicht hat jemand eine Idee wie man Felder im AD setzen kann.
Hier ein Auszug meines Scripts:

Do Until objRecordSet.EOF
Set objUser = GetObject(objRecordSet.Fields(0).Value)

strCN = objRecordSet.Fields("cn").Value
strSAM = objRecordSet.Fields("sAMAccountName").Value
strdisplayName = objRecordSet.Fields("displayName").Value
strmail = objRecordSet.Fields("mail").Value

If strCN = "Max Mustermann" Then
Print "Name: " & strCN
Print "Login: " & strSAM
Print "Display: " & strdisplayName
Print "Adresse: " & strmail
objUser.Put "mail", adresse
objUser.SetInfo
End If

objRecordSet.MoveNext
loop

Das auslesen ist nur zur Kontrolle. In der Variable adresse steht die Mail Adresse aus dem Domino Directory. Diese möchte ich beim AD User eintragen.

Habe es nun doch gefunden. Ich habe das User Object nicht richtig gesetzt.

AD_dn = objRecordSet.Fields("distinguishedname").value & ""
Set objUser = GetObject("LDAP://" & AD_dn)

So funktioniert es.