use Net::Telnet and it's easy. Untested code:
use Net::Telnet;
$t = new Net::Telnet;
$t->open("localhost");
$t->login($username, $passwd);
$t->cmd(String=>'passwd',Prompt=>':');
$t->cmd(String=>$passwd,Prompt=>':');
@result = $t->cmd(String=>$passwd);
print @result;
--
Mark Thomas [EMAIL PROTECTED]
Internet Systems Architect DigitalNet, Inc.
$_=q;KvtuyboopuifeyQQfeemyibdlfee;; y.e.s. ;y+B-x+A-w+s; ;y;y; ;;print;;
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Mundell, R. (Ronald)
Sent: Friday, June 25, 2004 4:51 AM
To: [EMAIL PROTECTED];
'[EMAIL PROTECTED]'
Subject: Help changing a password
Good Day All
I am trying to change a password in a Perl script. Does anyone know how to
do this?
Eg.
passwd user1
Changing password for "user1"
user1's Old password: 123456
user1's New password: abcde123
Enter the new password again: abcde123
Ronald Mundell
This email and any accompanying attachments may contain confidential and
proprietary information. This information is private and protected by law
and, accordingly, if you are not the intended recipient, you are requested
to delete this entire communication immediately and are notified that any
disclosure, copying or distribution of or taking any action based on this
information is prohibited.
Emails cannot be guaranteed to be secure or free of errors or viruses. The
sender does not accept any liability or responsibility for any interception,
corruption, destruction, loss, late arrival or incompleteness of or
tampering or interference with any of the information contained in this
email or for its incorrect delivery or non-delivery for whatsoever reason or
for its effect on any electronic device of the recipient.
If verification of this email or any attachment is required, please request
a hard-copy version.
_______________________________________________
Perl-Unix-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
