Help for this page
#!/usr/bin/perl use Net::Ping; ... sleep(1); } print("\nVerified ping connectivity to host \n");
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