2013-07-03 3 views
0
use Net::SSH2; 

$HostName=$ARGV[0]; 
my $ssh2 = Net::SSH2->new(); 
$ssh2->connect("$HostName") or die "Unable to connect Host [email protected] \n"; 
$ssh2->auth_password('user','passwd') or die "Unable to login [email protected] \n"; 
my $chan = $ssh2->channel(); 
$chan->shell(); 
print $chan "cd C:\Test\n"; 

위의 코드는 Windows 상자에서 작동하지 않는 것 같습니다. 누구든지 문제를 말해 줄 수 있습니까?Windows 용 Perl Net :: SSH2

+1

* windows box *가 SSH 데몬을 실행하고 있습니까? –

+0

정확히 "* 작동하지 않는 것"*은 ​​의미합니까? 어떤 오류가 있습니까? – m0skit0

+0

SSH 연결이 작동 중입니다. – user936636

답변

0

"경고 사용"으로 경고 사용 즉시 하나 이상의 오류를 발견하게됩니다.

+0

위의 문제는 C : \\ Test에 이중 백 슬래시를 사용해야한다는 것입니다. 지금 내가 직면하고있는 문제는 - 그 위치에서 setup.cmd를 트리거하려고하지만 예상되는 로그가 생성되지 않아 작동하지 않는 것 같습니다. 내가 실행 한 명령은 다음과 같습니다. print $ chan "setup.cmd \ n"; "경고 사용"을 시도했지만 오류 메시지가 표시되지 않습니다. – user936636

+0

은 Net-> SSH2가 Windows 용 배치/cmd 스크립트에서 작동하지 않는 것처럼 보입니다. – user936636

+0

수동으로 파일을 만들고 간단한 "del"명령이 작동하는지 확인하십시오. – ysth

관련 문제