Как узнать IP-адрес компа в локалке по его сетевому имени?

← →
Zion (2005-03-22 00:03) [0]

subject

← →
Ozone © (2005-03-22 05:20) [1]

GetHostByName

← →
TankMan © (2005-03-22 07:35) [2]

function GetIPFromName(DNS: string): string;
const
ERR_HOST = "Can not get host information.";
RES_UNKNOWN = "Unknown";
ERR_WSA = "Can not initialize WSA.";
WSA_TYPE = $101; //$202;
var
WSA : TWSAData;
Host : PHostEnt;
Err : Integer;
begin
Result := RES_UNKNOWN;
Err := WSAStartup(WSA_TYPE, WSA);
if Err <> 0 then
begin
MessageDlg(ERR_WSA, mtError, [mbOK], 0);
Exit;
end;
Host := GetHostByName(PChar(DNS));
if Assigned(Host.h_addr_list) then
Result :=
inet_ntoa(PInAddr(Host.h_addr_list^)^)
else
MessageDlg(ERR_HOST, mtError, [mbOK], 0);
WSACleanup;
end;

← →
ZioN (2005-03-22 22:22) [3]

спасибо большое!!! Щас проверю, как работает...

← →
Alex Konshin © (2005-03-23 00:07) [4]

О каком сетевом имени идет речь? Если о netbios-имени ("имени компьютера"), то по-моему оно напрямую не зависит от DNS-имени (хотя обычно совпадают).
Я лично не знаю ответа на такой вопрос. Но это точно не то, что здесь написали ранее.
Хотя нет, какой-то ответ я знаю. Если в локальной сети домен контроллер - ActiveDirectory сервер, то оттуда можно вытащить такую информацию.

← →
TankMan © (2005-03-23 06:49) [5]

>>Alex Konshin
Это вы к чем вообще сказали?
Вопрос был поставлен ясно и понятно ответ на него дал Ozone, а я пример привел использования.... зачем разглагольствовать?

← →
Alex Konshin © (2005-03-23 07:38) [6]

Вопрос был поставлен ясно и понятно ответ на него дал Ozone, а я пример привел использования.... зачем разглагольствовать?
Ваши ответы неверны, если понимать вопрос буквально.
"Сетевое имя компьютера" в Windows это отнюдь не DNS имя. Хотя бы потому, что оно имеет смысл даже тогда, когда TCP/IP не установлен. Более того, они могут и не совпадать.

← →
Zion (2005-03-24 21:31) [7]

а где находятся TWSAData и PHostEnt? пишет undeclarated identifier...

← →
Zion (2005-03-24 21:52) [8]

а главное что GetHostByName тоже undeclarated identifier! что делать? пробовал и на D5 и на D7 - не работает(((

uses WinSock

← →
Zion (2005-03-25 14:29) [10]

Спасибо! :)

Как узнать IP-адрес компа в локалке по его сетевому имени? Найти похожие ветки