Ping statistics for 64.233.189.104:
Packets: Sent = 10, Received = 10, Lost = 0 (0% loss),
Approximate round trip times in milli-seconds:
Minimum = 106ms, Maximum = 112ms, Average = 109ms

Ping statistics for 64.233.189.104:
Lost = 0 (0% loss),
Minimum = 106ms, Maximum = 112ms, Average = 109ms

ping www.baidu.com  2>nul| findstr /v "^Reply"

Pinging a.a.a.a with 32 bytes of data:
Ping statistics for a.a.a.a:
Packets: Sent = 1, Received = 1, Lost = 0 (0% loss),
Approximate round trip times in milli-seconds:
Minimum = 24ms, Maximum = 24ms, Average = 24ms

Pinging b.b.b.b with 32 bytes of data:
Ping statistics for b.b.b.b:
Packets: Sent = 1, Received = 1, Lost = 0 (0% loss),
Approximate round trip times in milli-seconds:
Minimum = 24ms, Maximum = 24ms, Average = 24ms

…………

Pinging x.x.x.x with 32 bytes of data:
Ping statistics for x.x.x.x:
Packets: Sent = 1, Received = 1, Lost = 0 (0% loss),
Approximate round trip times in milli-seconds:
Minimum = 24ms, Maximum = 24ms, Average = 24ms

for /f "delims=" %a in (domain.txt) do @ping %a >> pingresult.txt

# use perl script to get uesful informations from the text file pingresult.txt

# code by lxmxn @ www.cn-dos.net/forum

#C:/perl/bin/perl

use strict;

use warnings;

my($fd);

open($fd,"<pingresult.txt")||die "Can't open pingresult.txt:$!\n";

undef($/);

my $textcontext=<$fd>;

while($textcontext=~m/Pinging (.*?) \+)\].*?, (Lost = \d+ \(\d+% loss\)).*?(Minimum.*?\n)/sg){

    print "*" x 20 . "\n$1  \n$3\n$4\n";

}

close($fd);