[Ssh-sftp-perl-users] secure shell script fails to SU to ROOT id

[Nguyen, D. M <dav...@xo...>]

I write a script to login unix system then attempt to change to ROOT but
the script does not work with "su" command.  Does someone know what I am
doing wrong with my script?

=20

=20

use Net::SSH::Perl;

=20

$ssh =3D Net::SSH::Perl->new("systemONE");

$ssh->login("userid", "password");

=20

$cmd1 =3D "su -";       =20

($out1) =3D  $ssh->cmd("$cmd1");

print "$out1\n";

=20

$cmd2 =3D "ROOTpassword";

($out2) =3D $ssh->cmd("$cmd2");

print "$out2\n";

=20

$cmd3 =3D "id";

($out3) =3D $ssh->cmd("$cmd3");

print "$out3\n";

=20

$ssh->cmd("exit");

$ssh->cmd("exit");

=20

=20

=20