|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Sergey E.Sumin 2:5025/17 17 Oct 2003 11:34:00 To : All Subject : Re: telnet.pl => windows -------------------------------------------------------------------------------- .RFC-X-Complaints-To: news@news.relex.ru .RFC-X-Priority: 3 .RFC-X-MSMail-Priority: Normal .RFC-X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1106 From: "Sergey E.Sumin" <sumin@relex.ru> Sorry за нижеследующий оффтопик. Для начала можно попробовать установить в параметрах виндового телнет-сервера параметр NTLM в 0 или 1 (пройдет логин). А потом, когда все это надоест, поставить нормальный telnetd (например, из цигвина) или sshd и использовать его (или поставить нормальную серверную ОС). "Сергей Торопов" <sergiy@fio.karelia.ru> wrote in message news:bmmk2u$bmb$1@atv.karelia.ru... > > Добрый вечер. > Возникла задача: > надо написать прогу, которая бы телнетилась к винде > > # cat telnet.pl > #!/usr/bin/perl > > use Net::Telnet (); > > $username="user"; > $passwd="password"; > > $t = new Net::Telnet (Timeout => 2, > Prompt => '/bash\$ $/'); > $t->open("127.0.0.1"); > $t->login($username, $passwd); > @lines = $t->cmd("ls"); > print @lines; > $t->close; > # > > работает замечательно, но как только: > # cat telnet.pl > #!/usr/bin/perl > > use Net::Telnet (); > > $username="user"; > $passwd="password"; > > $t = new Net::Telnet (Timeout => 2, > Prompt => '/C:\\> $/'); > $t->open("192.168.0.1"); # 192.168.0.1 - машина с MS Windows 2000 Prof > $t->login($username, $passwd); > @lines = $t->cmd("dir"); > print @lines; > $t->close; > # > > # ./telnet.pl > timed-out waiting for command prompt at ./telnet.pl line 11 > # > > то есть вот на этом месте: $t->login($username, $passwd); > > Подскажите, чего делать... > > --- Microsoft Outlook Express 6.00.2800.1106 * Origin: RELEX Inc. (2:5025/17@fidonet) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/121433b7f1b00.html, оценка из 5, голосов 10
|