How do get a list of failed servers?

in reply to Re: How do I get expect.pm to ignore special characters?
in thread How do I get expect.pm to ignore special characters?

Hello sn1987a

The code worked with my solaris boxes but I am having trouble with my script with my Linux boxes it stops at the screen like this example,

Starting EXPECT pattern matching...
 at /usr/lib/perl5/site_perl/5.8.8/Expect.pm line 561
        Expect::expect('Expect=GLOB(0x4ecd240)', 60, 'ARRAY(0x4ecd860)
+', 'ARRAY(0x4ecd8c0)') called at ./linux_enc.pl li
ne 56
        main::change_password('remotelinuxhost\x{a}') called at ./linu
+x_enc.pl line 39
I've read & consent to terms in IS user agreem't.
amagana@remotelinuxhost's password: Starting EXPECT pattern matching..
+.
 at /usr/lib/perl5/site_perl/5.8.8/Expect.pm line 561
        Expect::expect('Expect=GLOB(0x4ecd240)', 60, '$') called at ./
+linux_enc.pl line 73
        main::change_password('remotelinuxhost\x{a}') called at ./linu
+x_enc.pl line 39

Permission denied, please try again.
amagana@remotelinuxhost's password:
[download]

After that I went to the target box and cleared out the pam_tally2 and then my perl script worked.

Comment on How do get a list of failed servers? Download Code

Replies are listed 'Best First'.
Re: How do get a list of failed servers? by sn1987a (Deacon) on May 14, 2015 at 18:32 UTC
After that I went to the target box and cleared out the pam_tally2 and then my perl script worked. If I understood you correctly and the script is now working, then the account got locked while you where debugging your script or was locked for some other failed log in attempts. Is there something that is not working if you run your script now?	[reply]

In Section Seekers of Perl Wisdom