Поиск компьютеров

← →
Rafl (2004-10-12 13:10) [0]

Каким образом можно найти в локалной сети все компьютеры, которые в данный момент выключены.

← →
Дмитрий Ботвин (2004-10-12 13:36) [1]

Если компьютеры выключены как же ты их собираешься найти в сети??? :-)))

← →
123 © (2004-10-13 03:00) [2]

Удалено модератором

← →
piople © (2004-10-13 05:34) [3]

Поищи на форуме, тут уже 100 тримилионтрионов об этом спрашивали!

← →
demidov (2004-11-05 11:43) [4]

Найди какие включены, остальные, значит, выклчены.:)

Берёщь Indy IdIcmpClient. Ставишь ему таймаут поменьше, добавляешь кнопку и TreeView на форму.

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=1 to 255 do
begin
idIcmpClient1.Host := "192.168.0." + inttostr(i);
idIcmpClient1.Ping();
end;

{OnReply в Events IdIcmpClient1}
procedure TForm1.IdIcmpClient1Reply(ASender: TComponent;
const AReplyStatus: TReplyStatus);
begin
IdIcmpClient1.ReplyStatus.FromIpAddress <> "0.0.0.0" then TreeView1.Add(nil,IdIcmpClient1.ReplyStatus.FromIpAddress);
end;

Если всё сделал правильно то в TreeView у тебя будут добавлятся адреса включённых компьютеров

Поиск компьютеров Найти похожие ветки