perl批量更改服务器密码
#!/usr/bin/perl use strict;use warnings;
use Net::SSH::Expect;
use String::MkPasswd qw(mkpasswd);
my $user = "user";
my $pass = 123456;
my $root_pass = 123456;
my $new_user_pass = mkpasswd(-length => 15, -minnum => 3, -minlower => 3 , -minupper => 3, -minspecial => 3);
my $port = 22;
open (FILE, "debug(0);
$ssh->run_ssh() or die "SSH process couldn't start: $!\n";
$ssh->waitfor( '\(yes\/no\)\?$', 5 );
$ssh->send("yes\n");
$ssh->waitfor( 'password:\s*$/', 5 );
$ssh->send("$pass");
$ssh->send("su - root");
$ssh->waitfor( 'Password:\s*$', 5 );
$ssh->send("$root_pass");
$ssh->waitfor( '#\s*', 5 );
print FH "root login ok. \n";
$ssh->send("passwd");
$ssh->waitfor( 'password:\s*$', 5 );
$ssh->send("$new_user_pass");
$ssh->waitfor( 'password:\s*$', 5 );
$ssh->send("$new_user_pass");
$ssh->waitfor( '#\s*', 5 );
my $ls = $ssh->exec("id");
print FH "$ls\n";
print FH "chang password ok!!!!!!!\n";
print FH "$new_user_pass\n";
my $end_time = localtime;
print FH "end \tat $end_time\n";
$ssh->close();
close FH;
print "-" x 80, "\n";
}
页:
[1]