Выручайте, братья  

вот линк: http://www.gotdotnet.ru/default.aspx?s=classify&c_no=4

спасибо за ответ, но ...

uses ... ActiveDS_TLB (импорт из activeds.tlb)

procedure TForm1.SearchComps;
const
 S_ADS_NOMORE_ROWS = $00005012;
var
 pADs: IADsContainer;
 pSearch: IDirectorySearch;
 prefInfo: ads_searchpref_info;
 hSearch: Pointer;
 pszAttr: PWideChar;
 dwCount: Cardinal;
 col: ads_search_column;
 hr: Cardinal;
 r: HRESULT;
begin
 CoInitialize(nil);
 pADs := GetObject('LDAP://DC=domname,DC=intranet') as IADsContainer;
 r := pADs.QueryInterface(IID_IDirectorySearch,pSearch);
 if r <> S_OK then Abort;
 prefInfo.dwSearchPref := ADS_SEARCHPREF_SEARCH_SCOPE;
 prefInfo.vValue.dwType := ADSTYPE_INTEGER;
 prefInfo.vValue.__MIDL_0010.Integer := ADS_SCOPE_SUBTREE;
 r:=pSearch.SetSearchPreference(ads_searchpref_info(prefInfo),1);
 if r <> S_OK then Abort;
 
Вот здесь r=$00005011, что значит S_ADS_ERRORSOCCURED - что не так?
.......
end;