получение ip адресов из сервера

[Афанасий[vedma]]

Привет)
Как получить все ip-адреса из DNS серверов? Например вводишь DNS сервер и появляется список ip адресов...все

[Stilet]

Все IP которые он домену раздал?
Думаю такое под силу только WMI... Попробуй поинтересуйся есть ли класс WMI. отвечающий за получение списка ИПшек рабочих станций зарегеных в домене.

[Афанасий[vedma]]

а можно поточнее...просто я не программировал DNS

[veniside]

зочем wmi, gethostbyname() всё сам умеет:

type
  pPointer = ^pointer;
  pLongWord = ^longword;

// --  --
function lookupHost(const host: string; out ip: string; list: TStringList): integer;
var
  addr: longword;
  phost: pHostEnt;
  ar: pPointer;
  added: boolean;
begin
  ip := '';
  //
  if (length(trim(host)) >= 0) then begin
    //
    result := 0;
    //
      added := false;
      addr := longword(inet_addr(PAnsiChar(AnsiString(host))));
      if ((addr = DWORD(INADDR_NONE)) or (addr = INADDR_ANY)) then begin
	//
	// try to resolve the name
	phost := gethostbyname(PAnsiChar(AnsiString(host)));
	//
	if (phost = nil) then
	  result := WSAGetLastError()
	else begin
	  //
	  move(phost.h_addr^[0], addr, sizeof(longword));
	  if (nil <> list) then begin
	    //
	    ar := pointer(phost.h_addr_list);
	    while (nil <> ar^) do begin
	      //
	      list.add(string(inet_ntoa(in_addr(pLongWord(ar^)^))));
	      inc(ar);
	    end;
	    //
	    added := true;
	  end;
	end;
      end;
      //
      if (0 = result) then begin
	// return IP address
	ip := string(inet_ntoa(in_addr(addr)));
	//
	if ((nil <> list) and not added) then
	  list.add(ip);
      end;
      //
  end
  else
    result := -1;
end;

(если я правильно понял вопрос).