OpenForum RSS: sudo � net::SSH::Perl

sudo � net::SSH::Perl (b0br)

Wed, 25 Feb 2009 11:02:14 GMT

>[�� ]
> $self->send("somePASS\n");
>
>
> exp_continue;
>
> }
>])
>or die "Cannot spawn password !!!\n";
>� ��
>$ssh->cmd("/usr/local/bin/sudo someCOMMAND");

��. �� :

~]$ echo "Wfee9XaL" |sudo -H -S bash -c "whoami"
root

sudo � net::SSH::Perl (morzo)

Mon, 19 Mar 2007 09:58:06 GMT

>>�� :
>>#!/usr/bin/perl
>>use Socket;
>>use Net::SSH::Perl;
>>$host = "host";
>>my $ssh = Net::SSH::Perl->new($host, debug=>1, use_pty=>11);
>>$ssh->login("username", "pass");
>>@cd = $ssh->cmd("/usr/local/bin/sudo /bin/bash");
>>print "cmd result = @cd";
>>
>>cmd result = Password:
>>
>>��:
>> - �� ssh �� ?
>>
>> - �� , �� sudoers (sudo)
>>�� NOPASSWD ?
>> - �� sudo �� ssh ��?
>
>�� empty, �� -
>�� expect

�� ! EXPECT �� ! � �� :
my $exp = Expect->spawn(
[
qr'Password: $', sub {
my $self = shift;
$self->send("somePASS\n");
exp_continue;
}
])
or die "Cannot spawn password !!!\n";
� ��
$ssh->cmd("/usr/local/bin/sud

sudo � net::SSH::Perl (chip)

Wed, 14 Mar 2007 08:04:38 GMT

>�� :
>#!/usr/bin/perl
>use Socket;
>use Net::SSH::Perl;
>$host = "host";
>my $ssh = Net::SSH::Perl->new($host, debug=>1, use_pty=>11);
>$ssh->login("username", "pass");
>@cd = $ssh->cmd("/usr/local/bin/sudo /bin/bash");
>print "cmd result = @cd";
>
>cmd result = Password:
>
>��:
> - �� ssh �� ?
>
> - �� , �� sudoers (sudo)
>�� NOPASSWD ?
> - �� sudo �� ssh ��?

�� empty, �� - �� expect

sudo � net::SSH::Perl (pavel_simple)

Wed, 14 Mar 2007 07:44:49 GMT

expect