function Enum_AD_Node(Srv_IP, Domain_Name, Node_: WideString;
                      UseCred: BOOL;
                      ADsUser, ADsPass: WideString;
                      ObjectClass: WideString;
                      Attribute: WideString;
                      out ResStr:TStrings):HRESULT;
var
   fADCont      : IADsContainer;
   ADEnum       : IEnumVariant;
   ADItemsCount : ULONG;
   ADItem       : IADs;
   ADVArr       : OleVariant;
   hRes         : HRESULT;
   ADsPath      : WideString;
   S            : WideString;
begin
 CoInitialize(nil);
 Result := S_FALSE;

  if Node_ <> '' then Node_ := Node_ + ',';
  if Domain_Name = '' then
    ADsPath := WideString('LDAP://'+ Srv_IP)
  else
    ADsPath := WideString('LDAP://'+Srv_IP+'/'+Node_+'DC='+Domain_Name);

 if UseCred then
  begin
    if Failed(ADsOpenObject(ADsPath,
                            ADsUser, ADsPass,
                            ADS_SECURE_AUTHENTICATION,
                            IADsContainer,
                            fADCont
                           )
             ) then
                  begin
                   Result := S_FALSE;
                   Exit;
                  end;
  end
 else
  begin
    if Failed(ADsGetObject(ADsPath,
                           IADsContainer,
                           fADCont
                          )
             ) then
                  begin
                   Result := S_FALSE;
                   Exit;
                  end;
  end;

  if Failed (ADsBuildEnumerator ( fADCont, @ADEnum )) then
    begin
     Result := S_FALSE;
     Exit;
    end;

  while SUCCEEDED (hRes) do
    begin
      hRes := ADsEnumerateNext(ADEnum, 1, ADVArr, ADItemsCount);
      if ( ADItemsCount <= 0 ) then Break;

       IDispatch (ADVArr).QueryInterface(IADs, ADItem);
       try
          S := Format('%s', [ADItem.Class_]);
          if ObjectClass = '' then
            S := UpperCase(Format('%s;%s'{;%s;'}, [ADItem.Get(Attribute), ADItem.ADsPath{, ADItem.Class_}]))
          else
          if S = Variant(ObjectClass) then
            S := UpperCase(Format('%s;%s'{;%s;'}, [ADItem.Get(Attribute), ADItem.ADsPath{, ADItem.Class_}]))
          else
            S := '';
       finally
        if S <> '' then
          ResStr.Add(S);
       end;
    end;
  Result := S_OK;
 CoUninitialize;
end;

//Вызов:
      DC_List := TStringList.Create;
      ObjectClass := 'computer'; 
      Attribute := 'name';
        Enum_AD_Node(Server,
                     Domain,
                     'CN=Computers',
                     false, User, Pass,
                     ObjectClass,
                     Attribute,
                     DC_List);
        ListBox1.Items.AddStrings(DC_List);
        DC_List.Free;