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.

Active Directory Benutzer suchen und löschen

Active Directory Benutzer suchen und löschen

Forumregeln