Arsip: IP Network Scanning List


by Manz in TipDanTrik more 12 years ago 3436
Bagaimana caranya ngambil atawa nge-list untuk network IP yang ada didalam LAN ?
Artikel ini emang agak lemot kalo dijalankan, tapi sebagai bahan dasar untuk pengembangan ... gak masalah ...
Ini dibuat karena ada Delphier yang minta tolong carikan untuk bagaimana list IP address yang ada didalam jaringan ...

Ini berguna untuk IPv4 saja ... IPv6 ... au ah gelap

Berikut Cuplikan untuk functionnya...


Uses Winsock; // <-- jangan lupa

procedure TForm2.getIP;
var
SAI: TSockAddrIn;
HostEnt: PHostEnt;
WSAData: TWSAData;
IP: String;
i: Integer;
begin
WSAStartup(1, WSAData);
for i := 0 to 255 do // maksimum 255 host
begin
IP := '192.168.1.' + inttostr(i); // jangan lupa titik ( . ) <-- ini juga format IPv4 xxx.xxx.xxx.xxx
SAI.sin_addr.s_addr := inet_addr(PChar(IP));
HostEnt := gethostbyaddr(@SAI.sin_addr.S_addr, 4, AF_INET);
if HostEnt <> nil then
Memo1.Lines.Add(IP + ' - ' + StrPas(Hostent^.h_name));
end;
end;



Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com