Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
use Net::Ping;
...
   sleep(1);
}
print("\nVerified ping connectivity to host \n");

Select or download this

C:\Users\Administrator>perl C:\test-ping.pl
Pinging host [Virt-titan-26]...
...
Host [Virt-titan-26 (xxx)] did NOT respond to ping

Host [Virt-titan-26 (xxx)] did not respond to any pings within timeout
+ of