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