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: 083407
Phone: 011-8813751
-Original Message-
From: Thomas, Mark - BLS C
ED] On
> Behalf Of Thomas, Mark - BLS CTR
> Sent: Friday, June 25, 2004 8:51 AM
> To: 'Mundell, R. (Ronald)'
> Cc: Perl-Unix-Users (Perl-Unix-Users)
> Subject: [Perl-unix-users] RE: Help changing a password
>
>
> use Net::Telnet and it's easy. Untested co
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;
