ADSI - find bruger i ADet

prøv at lave en søg her på siden

http://www.eksperten.dk/spm/944312
måske du kan bruge dette

Det er ét af mine tidlige indlæg, du referer til ;-)
Den løsning kan jeg desværre ikke bruge til mit nuværende problem.
Jeg tror dog at jeg har fundet en løsning med ADSI og ADO.
Jeg melder ud, når jeg er helt sikker på, at løsningen holder.

Jeg har løst problemet ved at bruge ADO
Jeg har lavet en ADOConnection hvor Provider=ADsDSOObject og som bruger domænet som database og en ADOQuery.
Herefter har jeg brugt nedenstående funktion, til at afgøre om en given brugerkonto eksisterer i domænet og hvem, der ejer den.

Function TForm1.CheckBruger(Brugernavn:String; var FullName:String): Boolean;
var
  temp: String;
begin
  ADOConnection1.Connected:=True;
  with ADOQuery1 do begin
    Temp:='select SamAccountName, DisplayName from ''LDAP://DC=myDomain, DC=dk'' where objectClass=''user'' and samAccountName='''+ Brugernavn + '''';
    SQL.Clear;
    SQL.text:=Temp;
    Active:=True;
    if RecordCount=1 then begin
      FullName:=FieldByname('DisplayName').AsString;
      Result:=True
    end else
      Result:=False;
  end;
  ADOConnection1.Connected:=False;
end;