ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : ‘ҐаЈҐ© ’®а®Ї®ў                       2:5020/400     16 Oct 2003  21:21:46
 To : All
 Subject : telnet.pl => windows
 -------------------------------------------------------------------------------- 
 

 
 Добрый вечер.
 Возникла задача:
 надо написать прогу, которая бы телнетилась к винде
 
 # 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);
 
 Подскажите, чего делать...
 --- ifmail v.2.15dev5
  * Origin: UNKNOWN (2:5020/400)
 
 

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