[Expectperl-discuss] expect.pm script

[MAGANA, A. S I C. U. A. 72 ABW/S. <and...@us...>]

Need help with trying to create a expect.pm script so that I can change
passwords on my Solaris-10 and 9 servers. I am using this expect.pm script
from my Linux server I also have Net::OpenSSH but I am not using right now.
Any examples would help.

#!/usr/bin/perl
use strict;
use Expect; 

my $ssh = Expect->new('ssh user@host');
#$ssh->debug(1);
$ssh->expect(5, q{Password:});
$ssh->send("password\n");
$ssh->expect(5, '$');
#$ssh->send("exit\n");
#$ssh->close();
exp_continue;



 

//SIGNED//

Andy Magaña
UNIX Systems Administrator
Diligent Contractor, 72nd Air Base Wing
Tinker Air Force Base, Oklahoma 
Commercial: (405) 734-0341