[Synalist] LDAP Pass Change

[Martin Zinaich]

I could use a good example on how in Delphi to change a password using the LDAPSend.  Also on how to modify an LDAP attribute.  Is the process almost the same?

I got to this point on trying to modify an attribute but lost it at adding the value (am I close or way way off?)  Thanks in advance for any help!!!

procedure TForm1.Button2Click(Sender: TObject);
Var
 ldap: TLDAPsend;
  l: TStringList;
   F1 : TLDAPAttribute ;

begin
  ldap:= TLDAPsend.Create;
  l := TStringList.Create;
  F1 := TLDAPAttribute.Create;

  try

    ldap.Timeout := 1 ;
    ldap.TargetHost := edit2.Text;
    ldap.SearchTimeLimit := 10 ;
    ldap.Login;
    ldap.Bind;
    if ldap.ResultString <> 'Success' then exit;
    F1.AttributeName := ('passwordMinimumLength');


    ldap.Modify(Edit3.Text,MO_Replace,F1);

    ShowMessage (ldap.ResultString);
    ShowMessage (InttoStr(ldap.ResultCode));

    ldap.Logout;
  finally
    ldap.Free;
    l.Free;
  end;
end;