Verify login success or failure

d3funct has asked for the wisdom of the Perl Monks concerning the following question:

I need to be able to verify the success or failure of factory installed IDs of Qlogic Passthru Modules for an audit (rather in preparation of an audit). I need to prove that the 'admin', 'USERID' and 'images' user ids are NOT using their default passwords on more than 180 Qlogic Intelligent Passthru Modules.

I can do this in Expect, but my management insists it be done with PERL, which is fine except I'm not (yet) a PERL guru.

Ideally I would like to have the script check each of these IDs by attempting login to the device using the default ID and if login is successful return "non-Compliant" and logout and if login is unsuccessful return "Compliant" and then move on to the next device (read in from a device list file). Output would go to a file in the form of "{DEVICENAME}: Compliant/Non-Compliant".

Does anyone have a template or can someone tell me where I can start to lean how to do this? Thanks for the help.

--D3funct

Comment on Verify login success or failure

Replies are listed 'Best First'.
Re: Verify login success or failure by kcott (Archbishop) on Dec 02, 2015 at 22:20 UTC
G'day d3funct, Welcome to the Monastery. "I can do this in Expect, but my management insists it be done with PERL ..." The Perl module Expect may be what you're after. [ Aside: Perl* is the language; `perl` is the program; PERL is wrong. :-) ]* — Ken	[reply] [d/l]
Re^2: Verify login success or failure by d3funct (Initiate) on Dec 02, 2015 at 23:02 UTC
Thanks I'll check it out	[reply]
Re: Verify login success or failure by salva (Canon) on Dec 04, 2015 at 14:21 UTC
That should be quite easy to do using Net::OpenSSH::Parallel... Actually, I have done that and included it as a sample script on the module package: concheck.pl.	[reply]