Re: [Expectperl-discuss] expect.pm script

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

Salvador, 

I looked at the parallel script and where would I put the old and new passwords?

Thanks, 

ReadMode 2, $tty;
print $tty "Old password: ";
my $old = ReadLine 0, $tty;
print $tty "\nNew password: ";
my $new = ReadLine 0, $tty;
print $tty "\nRetype new password: ";
my $new_bis = ReadLine 0, $tty;
print $tty "\n";
ReadMode 0, $tty;


//SIGNED//

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


-----Original Message-----
From: Salvador Fandino [mailto:sfa...@ya...] 
Sent: Friday, March 27, 2015 9:59 AM
To: MAGANA, ANDREAS S I CTR USAF AFMC 72 ABW/SCOOT; exp...@li...
Subject: Re: [Expectperl-discuss] expect.pm script





----- Original Message -----
> From: "MAGANA, ANDREAS S I CTR USAF AFMC 72 ABW/SCOOT" 
> <and...@us...>
> To: Salvador Fandino <sfa...@ya...>; 
> "exp...@li..." 
> <exp...@li...>
> Cc: 
> Sent: Friday, March 27, 2015 3:38 PM
> Subject: RE: [Expectperl-discuss] expect.pm script
> 
> Salvador,
> 
> This change_passwd.pl script looks like what I need can you help me 
> modify it to be a usable script?


You may nned to change the regular expresions passed to the answer_passwd sub to match the prompt used in the target systems.

Otherwise, the script works as is.