AD Hilfe !!

[uranop]

Moin ...
ich habe mir mal nen vorgaenger thread an geguggt
>> http://www.delphipraxis.net/internal...t.php?p=866363

analog dazu wollte ich mein vorhaben auch durchziehen.

source:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
conn,com,rs: variant;
sUser,txtUserID,txtDomain: string;
strBase, strAttributes, strADS : string;
begin
  conn := CreateOleObject('ADODB.Connection');
  com := CreateOleObject('ADODB.Command');
  try
    conn.Provider := 'ADsDSOObject';
    conn.open;
    com.ActiveConnection := conn;
    txtUserID := Edit1.Text;

    strBase := '<LDAP://SERVER/>';
    strAttributes := 'displayName,description,department,mail,homeDrive,homeDirectory,telephonenumber,rocheLocalCostCenter';
    strADS := strBase + ';cn=' + txtUserID + ';' + strAttributes + ';subtree';
    com.CommandText := strADS;

    com.Properties['Page Size'] := 100000;
    com.Properties['Searchscope'] := 2;
    com.Properties['Cache Results'] := False;
    rs := com.Execute;

if Not rs.EOF then
    begin
    Edit2.Text := txtUserID;
    Edit3.Text := rs.Fields['displayName'].Value;
    Edit4.Text := rs.Fields['description'].Value;
    Edit5.Text := rs.Fields['department'].Value;
    Edit6.Text := 'bla';
    Edit7.Text := rs.Fields['mail'].Value;
    Edit8.Text := rs.Fields['homeDrive'].Value;
    Edit9.Text := rs.Fields['homeDirectory'].Value;
    Edit10.Text := rs.Fields['telephoneNumber'].Value;
    Edit11.Text := rs.Fields['rocheLocalCostCenter'].Value;
    end
else
      MessageDlg('Kein Datensatz gefunden.',mtInformation,[mbOK],0);
    Rs := NULL;
  finally
    com := NULL;
    conn.Close;
    conn := NULL;
  end;
end;

compiler laeuft ohne probleme.
nur beim testen springt mir andauernd nen fehler ins gesicht
" Der Befehl enthielt mindestens einen Fehler "

irgendwie komm ich nicht dahinter wos klemmt

debugger bleibst stehen bei

rs := com.Execute;

cp zu http://www.delphi-forum.de/viewtopic.php?p=521019