Active Directory - Alle Benutzer auslesen - mit ActiveDS_TLB

[cherry]

Hi @ all

Ich möchte eigentlich nach einem Benutzer im AD suchen, jedoch nicht nach dem "Username" sondern nach dem "Displayname" oder "Fullname". Da ich denke, dass ActiveDS_TLB keine Funktion dafür vorsieht, dachte ich: Ich lese zuerst alle Benutzer des AD aus und Suche dann nach dem "Displayname" oder "Fullname"...

Nur... wie macht man das?

[Alter Mann]

Hi cherry,

falsch gedacht. In den Beispielen von Agni Software ist auch eins für directorysearch.

Gruß

[wschrabi]

Zitat von Alter Mann:

Hi cherry,

falsch gedacht. In den Beispielen von Agni Software ist auch eins für directorysearch.

Gruß

Hallo lieber ALTER_MANN & Co,
ich möchte auch ein LDAP EMail Suche routine in mein Delphi Programm. Doch auf der Agnissoft seite finde ich nix mehr dazu. Ist das freeware oder gibts kommerzielle Tools die LDAP EMAILs suche ermöglichen? DANKE

[Alter Mann]

Echt Jetzt?
Oh man, da musste ich ganz schön in der Vergangenheit rumstochern und hab nix gefunden.

Aber dafür gibt es ja Google, oder nicht?

VG

[Alter Mann]

Nachtrag,

auch als Quelle gut geeignet: LDAPAdmin

[wschrabi]

Zitat von alter mann:

nachtrag,

auch als quelle gut geeignet: ldapadmin

danke vielmals !

[cherry]

Hey Alter Mann...

Vielen Dank für deine schnelle Antwort, das hat mir schon "etwas" weitergeholfen. Ich schaffe es nun mit folgendem, von mir abgeändertem, AgnisoftCode eine Liste aller User zu bekommen.

Ok ich hab nun eine Liste der DisplayNames aller Benutzer, nur habe ich den Usernamen aber nicht dazu, den brauche ich jetzt auch nocht. Eine Idee?

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
var obj : IAds;
    search : IDirectorySearch;
    tst : PWideChar;
    p : array[0..0] of PWideChar;
    cls : IADsClass;
    cont : IADsContainer;
    i : integer;
    ptrResult : THandle;
    col : ads_search_column ;
    hr : HResult;
    opt : array[0..0] of ads_searchpref_info; // has to be an array
    dwErr : DWord;
    szErr : array[0..255] of WideCHar;
    szName : array[0..255] of WideChar;
begin
   lbDsSearch.Items.CLear;
   AdsGetObject(edtDSPath.Text, IDirectorySearch, search);
   try
     p[0] := StringToOleStr('Name');
     opt[0].dwSearchPref := ADS_SEARCHPREF_SEARCH_SCOPE;
     opt[0].vValue.dwType := ADSTYPE_INTEGER;
     opt[0].vValue.Integer := ADS_SCOPE_SUBTREE;
     hr := search.SetSearchPreference(@opt[0],1);
     if (hr <> 0) then
       begin
         hr := ADsGetLastError(dwErr, @szErr[0], 254, @szName[0], 254);
         ShowMessage(WideCharToString(szErr));
         Exit;
       end;
     hr := search.ExecuteSearch('(objectCategory=User)',@p[0], 1, ptrResult);
     hr := search.GetNextRow(ptrResult);
     while (hr <> S_ADS_NOMORE_ROWS) do
     begin
        hr := search.GetColumn(ptrResult, p[0],col);
        if Succeeded(hr) then
        begin
          if col.pADsValues <> nil then
            lbDsSearch.Items.Add(col.pAdsvalues^.CaseIgnoreString);
          search.FreeColumn(col);
        end;
        Hr := search.GetNextRow(ptrResult);
     end;
   finally
   end;
end;

cheers

[MarLe]

... vielleicht hilft folgendes

Delphi-Quellcode:

...
function ADsGetObject(pwcPathName: PWideChar; const xRIID: TGUID; var pVoid): HResult; stdcall; external 'activeds.dll';
...
function TForm1.GetUserFullname(Domain, Username: String): string;
var 
  usr: IADSUser; 
  pc:array[0..255] of WideChar; 
  s:String; 
begin 
  s:='WinNT://' + Domain + '/' + username; 
  StringToWideChar(S,PC,Length(S)+1); 

  ADsGetObject(pc, IADsUser, usr); 
  if not Assigned(usr) then 
    result := 'Unknown' 
  else 
    result := usr.FullName; 
end;

Gruß MarLe

[cherry]

@MarLe

ne, eben nicht. Du hast mich wohl falsch verstanden. Ich will den Full- oder Displayname eingeben und den Username erhalten. Das ist genau das umgekehrte von dem was du mir vorgeschlagen hast. Du gibst den Username ein und erhälst den Fullname, das hab ich bereits in mein Programm implementiert.

Danke trotzdem...

noch jmd eine Idee?

[Alter Mann]

Hallo cherry,

du kommst an MSDN ran? Wenn Ja schau dir mal die Erläuterungen zu ExecuteSearch an.
Wenn Nein wirst Du warten müssen bis ein anderer Hilfestellung gibt, da ich noch nicht weiß
ob ich am Wochenende dazu komme.

Das kurze Beispiel:

Zitat:

LPWSTR pszAttr[] = { L"ADsPath", L"Name", L"samAccountName" };
ADS_SEARCH_HANDLE hSearch;
DWORD dwCount= sizeof(pszAttr)/sizeof(LPWSTR);

// Search for users with a last name that begins with "h".
hr = m_pSearch->ExecuteSearch(L"(&(objectClass=user)(sn=h*))", pszAttr, dwCount, &hSearch );

Gruß