FACEBOOK
GOOGLE+
TWITTER
RSS
A Perl script to reboot ZTE 831
Posted By: zainal on March, 06 2007
A perl script to reboot ZTE ZXDSL 831 modem/router. Very useful if you want to schedule a reboot of the router.
#!/usr/bin/perl
use Net::Telnet;
$t = Net::Telnet->new( Timeout => 10 );
$t->open(”192.168.1.1″);
$t->waitfor(’/Login user: $/i’);
$t->print(’username’);
$t->waitfor(’/Password: $/i’);
$t->print(’password’);
$commands = “reboot\n”;
@response = $t->cmd(”$commands”);
print @response;
No Comments
Leave a reply