Dear All,
Please see the code here.
----------------------------------------------------------------------------
-----------------------
use Net::Telnet;
$telnet = new Net::Telnet(Port => 25);
$result ='Active';
@hosts=('208.220.254.1',208.220.254.2',208.220.254.3');
foreach $host(@hostes){
$telnet->open($host) or $result ='Not Active';
print " 25 port on $host is $result\n";
}
$telnet->close;
----------------------------------------------------------------------------
----------------------------
But This program terminates if one of them is Failed.
Is there any way to get it done.
Thank you very much.
With Regads
Rajuveera.
**************************************************************************
This email (including any attachments) is intended for the sole use of the
intended recipient/s and may contain material that is CONFIDENTIAL AND
PRIVATE COMPANY INFORMATION. Any review or reliance by others or copying or
distribution or forwarding of any or all of the contents in this message is
STRICTLY PROHIBITED. If you are not the intended recipient, please contact
the sender by email and delete all copies; your cooperation in this regard
is appreciated.
**************************************************************************
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
