Главная страница


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)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

 Тема:    Автор:    Дата:  
 Re: telnet.pl => windows   Sergey E.Sumin   17 Oct 2003 11:34:00 
Архивное /ru.perl/121433b7f1b00.html, оценка 2 из 5, голосов 10
Яндекс.Метрика
Valid HTML 4.01 Transitional