@anthon

Как, зная адрес и маску подсети, с помощью Windows API получить список IP всех хостов?

Пингование всех возможных адресов не годится.

0

Ghost

Ну, например, поспрошать DHCP Если он есть

@lapitsky

можно просто вычислить самому:

procedure GetAddressesRange(IPAddress: string; SubnetMask: string; var Ips: TStringList);

var Count: LongInt;
I:LongInt;
IP: LongInt;
tmpStr: string;
addr, mask: LongInt;
Str: string;
begin
tmpStr := ''
Str := '$'
if ipAddress[Length(ipAddress)] <> '.' then
ipAddress := ipAddress + '.'

if SubnetMask[Length(SubnetMask)] <> '.' then
SubnetMask := SubnetMask + '.'

for I:=1 to Length(ipAddress) do
begin
if ipAddress[i] <> '.' then
tmpStr := tmpStr + ipAddress[i]
else
begin
Str := Str + IntToHex(StrToInt(tmpStr),2);
tmpStr := ''
end;
end;
Addr := StrToInt(Str);

tmpStr := ''
Str := '$'

for I:=1 to Length(SubnetMask) do
begin
if SubnetMask[i] <> '.' then
tmpStr := tmpStr + SubnetMask[i]
else
begin
Str := Str + IntToHex(StrToInt(tmpStr),2);
tmpStr := ''
end;
end;
Mask := StrToInt(Str);

Ips := nil;
Ips := TstringList.Create;
Ips.Clear;

I:=0;
Count := LongInt($FFFFFFFF - mask);

for IP := (addr and mask) to ((addr and mask) + Count) do
begin
tmpStr := IntToStr(StrToInt('$' + copy(IntToHex(ip,2),1,2))) + '.'+
IntToStr(StrToInt('$' + copy(IntToHex(IP,2),3,2))) + '.'+
IntToStr(StrToInt('$' + copy(IntToHex(IP,2),5,2))) + '.'+
IntToStr(StrToInt('$' + copy(IntToHex(IP,2),7,2)));
Ips.Add(TmpStr);
Inc(I);
end;
end;

0