- 论坛徽章:
- 0
|
我之前用perl写了一个,可以看看
#! /usr/bin/perl -w
use lib qw(MYLIBPATH);
use Net::Telnet;
($hostname, $username, $password, $supw, $newuser, $newpw) = @ARGV;
$t = Net::Telnet->new( Timeout => 10,
Host => $hostname );
$t->login($username, $password);
$t->print("su -");
$t->waitfor('/assword:/');
$t->print("$supw");
$t->waitfor('/#/');
$t->print("passwd $newuser");
$t->waitfor('/assword: /');
$t->print("$newpw");
$t->waitfor('/new Password:/');
$t->print("$newpw");
$t->waitfor('/successfully changed/');
print "Change password of $newuser@$hostname successfully completed.n";
$t->close;
|
|
|