Unfortunately the servers this will run on does not have telnet installed on them
Ronald Mundell Information Security Developer Security Innovation and Consulting Nedcor Bank Ltd. Email: [EMAIL PROTECTED] Cell: 0834111107 Phone: 011-8813751 -----Original Message----- From: Thomas, Mark - BLS CTR [mailto:[EMAIL PROTECTED] Sent: 25 June 2004 02:51 PM To: 'Mundell, R. (Ronald)' Cc: Perl-Unix-Users (Perl-Unix-Users) Subject: RE: Help changing a password 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.
smime.p7s
Description: S/MIME cryptographic signature
_______________________________________________ Perl-Unix-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
