تبدیل IP به Name

[N_D]

سلام
در یک محیط شبکه چطور از طریق IP نام کامپیوتر را بدست بیاوریم
192.168.40.1 --> IT1
متشکرم

[m-khorsandi]

درود

فکر کنم این کد بدردت بخوره:



function IPAddrToName(IPAddr: string): string;
var
SockAddrIn: TSockAddrIn;
HostEnt: PHostEnt;
WSAData: TWSAData;
begin
WSAStartup($101, WSAData);
SockAddrIn.sin_addr.s_addr := inet_addr(PChar(IPAddr));
HostEnt := gethostbyaddr(@SockAddrIn.sin_addr.S_addr, 4, AF_INET);
if HostEnt <> nil then
Result := StrPas(Hostent^.h_name)
else
Result := '';
end;

[N_D]

با تشکر از دوست عزیز و دستت درد نکنه
من این کد را آزمایش کردم و کاملا درست جواب میده مشکلش اینه که سرعتش کمه برای هر کلاینت حدودا 7 ثانیه .
من یه برنامه میخوام که سرعتش بالاتر باشه. اگه کسی بتونه یه کد با سرعت بالاتر رو تجویض کنه ممنون میشم 1000000 تا
متشکرم