Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Hi,

I want to connect a remote windows desktop from a windows machine using Telnet . while executing my program i got error like

timed-out waiting for log in prompt

i used below code

use Net::Telnet();
$telnet = new Net::Telnet ( Errmode=>'die', Prompt => '/\$ $/i'); 
$telnet->open(host=> 'xxx.xxx.xxx', Port => 80); 
$telnet->login('username', 'password'); 
print $telnet->cmd('who');

[download]

Regards,

Senthil

Replies are listed 'Best First'.
Re: Time out error as I connect to remote desktop server using telnet
by Corion (Patriarch) on Oct 04, 2011 at 09:48 UTC

    So, have you checked that the prompt you get from the Windows machine is the prompt you have defined? Have you looked into the debug options that Net::Telnet has? What happened when you tried them?

[reply]

      Hi Corion

      ya i looked at code.I changed my code like this

      use Net::Telnet();
$telnet = new Net::Telnet (Timeout => 10, Prompt => '/\$ $/i');
$telnet->open(host=>'xx.xxx.xxx.xxx', Port => 80); 
$telnet->login('username', 'password'); 
print $telnet->cmd('who');

      [download]

      Is this correct one?If it is correct Still i am getting Same error

      Can You give me idea to connect remote desktop connection using mstsc

      Regards,

      Senthil

[reply]
[d/l]

        Can you connect using telnet from the Windows command prompt?

        Update: are you the same Senthil who asked about mstsc here?

[reply]

Back to Seekers of Perl Wisdom