CGI/Perl Guide | Learning Center | Forums | Advertise | Login
Site Search: in

  Main Index MAIN
Search Posts SEARCH
Who's Online WHO'S
Log in LOG

Home: Perl Programming Help: Win32 Programming Help:
Problem with Telnet to windows 64bit


New User

Aug 15, 2011, 2:26 AM

Post #1 of 1 (22094 views)
Problem with Telnet to windows 64bit Can't Post


I have some problem to telnet to Windows 64BIT, same script works just fine on windows 32 bit.

I use module

my function is:
sub OpenTelnetConectionWindows
my $lh_ref = shift;
my $host_ref = shift;
my $Account_ref= shift;
my $AccountPass_ref = shift;
my $TelnetLifeCheck;

my $this_subs_name = (caller(0))[3];
$$lh_ref->log("Function: $this_subs_name");

$$lh_ref->log_print("Open Telnet Conection on $$host_ref on account $$Account_ref.");

my $telnet = new Net::Telnet ( Timeout => 20000,
Prompt => '/[\w().-]*[\$#>:.]\s?(?:\(enable\))?\s*$/',
#Prompt => '/(?m:^[\w.&-]+\s?(?:\(config[^\)]*\))?\s?[\$#>]\s?(?:\(enable\))?\s*$)/',
#Prompt => '/C:\\\\>$/i',
Dump_log => 'dump.log',
Input_log => 'InputLog.txt',
Output_log => 'OutputLog.txt'
$telnet->waitfor('/\d*[Ll]ogin:\s*/'); #$telnet->waitfor('/login: $/i');
$telnet->waitfor('/\d*[Pp]assword:\s*/'); #$telnet->waitfor('/password: $/i');

my $str = 'hostname';
my @tmp = $telnet->cmd($str);
print @tmp;

return $telnet;

i get error message:
pattern match read eof at D:\Documents and....

then i add this lines:
my $str = 'hostname';
$telnet->errmode(sub {die @_ unless $_[0] =~ /eof/});
my @tmp = $telnet->cmd($str);
print @tmp;
but i dont get any prints, but when i try to print again i get:
write error: filehandle isn't open at D:\Documents and

than mean that telnet connection doesn't open

i work with input and dump log but i can't understand where i get wrong...

this function work on windows 32 bit.
Any suggestions?


(This post was edited by vaviad on Aug 16, 2011, 1:19 AM)


Search for (options) Powered by Gossamer Forum v.1.2.0

Web Applications & Managed Hosting Powered by Gossamer Threads
Visit our Mailing List Archives