Sorry, I also meant to suggest a module such as Net::Telnet to log in to the
UNIX box. Although, if you can use Net::SSH, you're better off running a
secure login session (Telnet sends the login password in unencrypted ascii).
Net::SSH example from CPAN:
use Net::SSH qw(ssh issh sshopen2 sshopen3);
ssh('user@hostname', $command);
issh('user@hostname', $command);
ssh_cmd('user@hostname', $command);
ssh_cmd( {
user => 'user',
host => 'host.name',
command => 'command',
args => [ '-arg1', '-arg2' ],
stdin_string => "string\n",
});
sshopen2('user@hostname', $reader, $writer, $command);
sshopen3('user@hostname', $writer, $reader, $error, $command);
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]On Behalf Of Peter
Eisengrein
Sent: Tuesday, August 20, 2002 10:23 AM
To: 'Oliver Wayne Contr AETC/DOXD'; Perl-Win32-Users (E-mail)
Subject: RE: Update Info on retrieving password age from Unix
I'm not familiar with what you are trying to do, but if you need to emulate
a login and do stuff as that user, you might want to check out Net::Telnet
or, if it's not 'telnet' that you're after you might try IO::Socket.
-----Original Message-----
From: Oliver Wayne Contr AETC/DOXD [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, August 20, 2002 09:14
To: Perl-Win32-Users (E-mail)
Subject: Update Info on retrieving password age from Unix
I am trying to write a script in Perl that will query the password age of my
Unix users and then lock their NT account if the password age on Unix is
over a certain limit. I can handle all the NT code, but I am not sure how to
retrieve the information from the Unix system. Any suggestions would be
welcome. I am still learning Perl so any code examples with explanations
would be appreciated.
More specifically, I want to query a Solaris Unix NIS+ system and retreive a
list of users and their password age from a Windows NT 4 box. I want to use
this information to lock their NT accounts if their password is over a
certain age on the Unix system. I have an account that allows access to this
information. What would be the best method to establish a connection and
then pull the information back to be processed on my NT box?
Wayne E. Oliver
System Administrator
AETC GCCS C4 Systems
DSN 487-7678
Comm: (210) 652-7678
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
