Ping

[-homer-]

hi,

wisst ihr, wie ich einen Ping an alle im Netzwerk befindenen PCs senden kann?
Danke schon mal im Vorraus

-homer-

ps.: Im CMD gibt es den dazu gehörigen Befehl: Ping 192.168.1.33 (Ip Adresse)

[Matze]

ICMPSENDECHO

[Matze]

OK, nicht so wortkarg. ;)

Delphi-Quellcode:

procedure TfrmMain.btnPingClick(Sender: TObject); 
begin 
  IdICMPClient.ReceiveTimeout := 5000;  // Timeout 5000 ms 
  IdICMPClient.Host := edtAddress.Text; 
  IdICMPClient.Ping(); 
end; 

procedure TfrmMain.IdIcmpClientReply(ASender: TComponent; 
  const AReplyStatus: TReplyStatus); 
begin 
  ShowMessage('Received ' + IntToStr(AReplyStatus.BytesReceived) + ' ' + 
              'Bytes from ' + AReplyStatus.FromIpAddress + ' ' + 
              'after ' + IntToStr(AReplyStatus.MsRoundTripTime) + ' ms.'); 
end;

Achja, beides durch die DP-Suche gefunden!


Nachtrag: Benötigt unter Windows NT/2000/XP Adminrechte. :?

Nachtrag2: Super Lösung von Christian Seehase.

[BungeeBug]

Hi,

oder per ShellExecute und dann die Ausgabe in eine Datei umleiten und auswerten :)
Brauch man eigendlich garkeine, also sogut wie keine, Rechte für :)

[Christian Seehase]

Moin BungeeBug,

Adminrechte sind allerdings auch nur erforderlich, wenn Du die Indy Variante benutzt.
Die von Matze "ausgegrabene" Lösung müsste auch problemlos mit normalen Userrechten funktionieren.

@Matze: :oops: