Active Directory Benutzer suchen und löschen

[Sasuke]

Hallo Community,

ich hab momentan ein kleines Problem beim suchen eines Benutzer in der AD.

Delphi-Quellcode:

procedure delete (vorname,nachname :WideString);
var
  oupath, bind : string;
   destOU, adscont : IADsContainer;
  usr    : IADsUser;
  ADsOU : IADsOU;
  Fullname, ADsPath, distinguishedName: WideString;
begin
   Fullname := vorname + nachname;
   LPWSTR pszAttr[] = { L"ADsPath", L"Name", L"samAccountName" };
   ADS_SEARCH_HANDLE hSearch;
   DWORD dwCount= sizeof(pszAttr)/sizeof(LPWSTR);
   try
      bind := 'LDAP://'+DomaintoDN(deleteuser.properties.domain);
      ADsPath := bind;
     ExecuteSearch('L"(&(objectClass=user)(sn='+fullname+'))", pszAttr, dwCount, &hSearch ');
     oupath := usr.ADsPath;
     adspath := oupath;
     ADsCont.Delete('user','CN='+fullname);
   except

   end;

Ich versuche den Benutzer nach seinem "Fullname" zu suchen und dann zu löschen. Ich könnte aber auch seinen Benutzernamen suchen.
Mir fehlen aber auch noch einige Uses zum Compiliern, z.B. die Funktion ExecuteSearch weiß ich nicht wo diese enthalten ist.
Wäre echt nett wenn ihr mir helfen könntet.

Gruß
Sasuke.