I have heard the MS Telnet server was fixed on XP (and that would seem
then on 2003) but have not tested it. I know Net::Telnet did NOT work on
Win2K pro, I wasted about a week trying to get it to. Worked fine on NT
4.0 though.
Cheers,
John
> -Original Message-
> From: Aaron
Correct.
> -Original Message-
> From: Thomas, Mark - BLS CTR [mailto:[EMAIL PROTECTED]
> Sent: Thursday, June 02, 2005 8:35 PM
> To: John Serink; Rajesh Vattem;
> perl-win32-users@listserv.ActiveState.com
> Subject: RE: Net::Telnet
>
>
> John wrote:
>
I have had no issues using Net::Telnet on XP Pro that are using the MS
Windows telnet server.
Stating that "it does not work" on Windows server/workstations is not
entirely true.
Try starting the MS Windows telnet server, and using it.
- Aaron
-Original Message-
Fr
John wrote:
> its does not work on these servers:
> Windows 2000 Pro,
> Windows XP pro,
> Windows 2000 server pro,
> Windows server 2003.
>
> Reason is, the new windows server uses ANSI codes and you CAN'T turn
> them off like on a UNIX box. These ANSI codes garb
When Net::Telnet doesn't do what you expect, 99% of the time it's a prompt
issue. Did you set the prompt? The default prompt works with the unix
command line, but you'll have to set it to work with your application.
I highly recommend using the debugging options; they can help
> Hi,
> I am using this module (Net::Telnet) downloaded from CPAN,
> for a small
> interactive program in which I telnet to a particular host,
> login and give
> some commands (based on the options you get). I am not able
> to do this. I am
> able to login but whatever
Hi,
I am using this module (Net::Telnet) downloaded from CPAN, for a small
interactive program in which I telnet to a particular host, login and give
some commands (based on the options you get). I am not able to do this. I am
able to login but whatever I do after that doesn't seem to h
al Message-
From: Sisyphus [mailto:[EMAIL PROTECTED]
Sent: Friday, April 01, 2005 6:29 AM
To: GT BAUTISTA, Rodel D.; perl-win32-users
Subject: Re: Using Net-telnet to connect via ssh
- Original Message -
From: "GT BAUTISTA, Rodel D." <[EMAIL PROTECTED]>
To:
Sent:
- Original Message -
From: "GT BAUTISTA, Rodel D." <[EMAIL PROTECTED]>
To:
Sent: Thursday, March 31, 2005 5:05 PM
Subject: Using Net-telnet to connect via ssh
Hi to All,
Is there a windows binary distribution of IO-Tty (or IO-Pty)? I can't
install the one I down
Title: Message
Hi to
All,
Is there a windows
binary distribution of IO-Tty (or IO-Pty)? I can't install the one I downloaded
from cpan. I'm having errors in the compiler 'cl' but it is already installed
and PATH is properly defined. Below are the errors from the log during
makefile.pl:
The Hummingbird telnet works like a normal terminal but is non free. For
scripting a telnet session I would use Expect anyway. For a free telnet
server that is terminal like I would(and do) use Cygwin. U can even use
bash as the shell.
--
REMEMBER THE WORLD TRADE CENTER ---=< WTC 911
Hi Folks,
The Net::Telnet doc explains why the Windows Telnet Server will not work
with that module (sends ANSI cursor positioning codes, etc. instead of
simple ASCII) and mentions that alternative Telnet servers exist, but
does not name them. Apparently, many of them do the same thing as the
[EMAIL PROTECTED] wrote:
> And 2-nd question:
> how to start fixed program/without params/ on windows98 box
> from linux box (on a local network) ?
>
You can 'use IO::Socket;' on the Windows box to set up a simple server, and
'use IO::Socket;' on the linux box to send the "start" message to the
[EMAIL PROTECTED] wrote:
And 2-nd question:
how to start fixed program/without params/ on windows98 box
from linux box (on a local network) ?
You can 'use IO::Socket;' on the Windows box to set up a simple server,
and 'use IO::Socket;' on the linux box to send the "start" message to
the server on
[EMAIL PROTECTED] wrote:
> Hi!
> Is there telnet server for windows98
> which works with Net::Telnet ?
> I downloaded some 6 servers
> some of them are not working
> at all,some does't work
> with Net::Telnet
I doubt that - you're doing something wrong in your sc
Hi!
Is there telnet server for windows98
which works with Net::Telnet ?
I downloaded some 6 servers
some of them are not working
at all,some does't work
with Net::Telnet
And 2-nd question:
how to start fixed program/without params/ on windows98 box
from linux box (on a local ne
I've been trying to write a script that controls an interactive command-line
program. From the searching I've done, it looks like IPC::Open2/IPC::Open3
paired with Net::Telnet would be the easiest way to do this on Windows. The
included script is my attempt, however I get the follo
ate some router changes using Net::Telnet::Cisco and
having problems.
The router: IOS (tm) 2500 Software (C2500-J-L), Version 11.2(14)
The cisco module methods seem to work well for login, enable, and cmd('show
version'). I run into a problem when I issue cmd('wr'). The router r
ort TERM=vt100’)
-邮件原件-
I need to set the Telnet terminal
type option for a telnet connection using Net::Telnet. Does anyone know
how to do that?
My script is connecting to the
system and processing most commands just fine. (So I know it is NOT
related to my prompt setting.)
PROTECTED] Behalf Of
Carl Jolley
Sent: Saturday, June 14, 2003 7:29 PM
To: ashish srivastava
Cc: [EMAIL PROTECTED]; [EMAIL PROTECTED];
[EMAIL PROTECTED]
Subject: RE: Help needed -- Net::telnet gives errors
On Sat, 14 Jun 2003, ashish srivastava wrote:
> Hi Ibrahim
> Thanks for ur help !
&g
Log in Screen
>
> action="/cgi-bin/telp.pl" method="GET" >
>
> User id :
>
>
> Password :
>
> Value="Submit" >
>
>
>
>
>
>
> And this is the Perl code
>
>
> use CGI;
> use CGI::C
l code
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use Net::Telnet();
print "Content-type:text/html\n\n";
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/,$buffer);
print " @pairs \n";
$j=0;
foreach $pair (@pairs) {
($name, $
after login and this what I could not solve it until now (send enter key
or any key to this type of switch after login). Please let me know if I can
help. Thank you.
use Net::Telnet;
$telnet = new Net::Telnet (Timeout =>
20, Prompt => '/[%#>\]\/] *$/');
$out='C:\Result.txt&
I was able to resolve my issues with Net::Telnet not working, thank you to
everyone who replied to my post. Now I have something different. Below is
a script that I wrote, it telnets to a Cisco router, goes into enable mode,
and is supposed to print the output of a "show ip route" com
Title: RE: Having problems with Net::Telnet
I'm using perl, v5.6.1 built for cygwin-multi
under Windows2000 Pro SP2 and found the following if it helps at all.
doesn't seem to bear on your original problem though!
#just a thought but shouldn't this line:
$telnet ->
Lupi, Guy wrote:
I did that, here is the output that was returned.
C:\Perl>ppm install Net::Telnet
[snip]
Successfully installed Net-Telnet version 3.03 in ActivePerl 5.8.0.804.
Then I tried to run my script and I got the same error message.
[snip]
FYI, I tried the snip on 98se, 5.6 build
Title: Another Net::Telnet question while we are on the subject!
Hi all,
I was just wondering about this:
I use Net::Telnet to send a command that takes anywhere from 3 to 10 minutes to complete.
Is there some way to create some activity indication while the command is out doing its
I did that, here is the output that was returned.
C:\Perl>ppm install Net::Telnet
Searching for 'Net::Telnet' returned multiple results. Using 'search'
instead...
Searching in Active Repositories
1. Net-Telnet [3.03] Interact with TELNET port or other TCP
port
I should have included that in my original message, I copied this from a
website:
use Net::Telnet();
$telnet = new Net::Telnet (Timeout => 10,
Errmode => 'die');
$telnet ->open('198.207.193.112');
$telnet ->waitfor('Passwor
Did you install the module using PPM?
What platform are you running it on?
> -Original Message-
> From: Lupi, Guy [mailto:[EMAIL PROTECTED]
> Sent: Tuesday, March 04, 2003 7:22 AM
> To: '[EMAIL PROTECTED]'
> Subject: Having problems with Net::Telnet
>
>
&
Lupi, Guy wrote:
Please excuse me if this is an extremely basic question, this is my first
post and I am a beginner, but I can't seem to get Net::Telnet to work. I am
getting the following error when I try to run a script using the Net::Telnet
module.
Can't locate object method "n
Show us the code?
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of
Lupi, Guy
Sent: Monday, March 03, 2003 5:22 PM
To: '[EMAIL PROTECTED]'
Subject: Having problems with Net::Telnet
Please excuse me if this is an extremely basic question, this i
John,
The problem is outlined in the Net:Telnet documentation. The "loads of
gibberish" is ANSI terminal escape characters. I haven't worked with that
exact telnet application, but some allow you to turn ANSI off and on
http://search.cpan.org/author/JROGERS/Net-Teln
Yah, yahread all that.
Question is, how do you stop the Win2K telnet server from defaulting to an ANSI
terminal?
This is particularly worrisome as the option_send method has not yet been written for
the Net::Telnet module so it is impossible to ask the Win2K server to change from
inside the
play an entire terminal screen.
Connecting Net::Telnet to one of these false TELNET servers makes your job
of parsing command output very difficult. It's better to replace a false
TELNET server with a real TELNET server. The better TELNET servers for
MS-Windows allow you to avoid the
ript, dead simple(line numbers are for explanation purposes):
1 use Net::Telnet;
2 use strict;
3 use warnings;
4
5 my $destination = "srecept";
6 my $telnet = new Net::Telnet ( Timeout=>10, Prompt=> '/\\>$/i');
7 my $time = localtime();
8 $telnet -> dum
First, if you are telnetting from a non Windoze PC, you must turn off NTLM
authentication on the host.
This works on an NT box:
use Net::Telnet;
use strict;
use warnings;
my $telnet = new Net::Telnet ( Timeout=>10, Errmode=>'die');
my @jim="";
my $frank="&q
ROTECTED]]
Sent: Tuesday, September 17, 2002 1:49 PM
To: 'Moulder, Glen'
Subject: RE: NET::Telnet
I'll bet you didn't try setting the term type to 'TTY'.
- Mark.
> -Original Message-
> From: Moulder, Glen [mailto:[EMAIL PROTECTED]]
> Sent: Tuesday,
Greetings,
I too had alot of trouble getting Net::Telnet to work properly,
it seemed to continuously stop for no apparent reason, with very
poor performance. As well as not being able to make it non-block
on win32.
I had to eventually write a direct TCP client to get a proper
level of
Before anyone else mentions it - please add the
"use NET::Telnet" in the example.
I told you it was untested. ;-)
Carter.
> -Original Message-
> From: Carter Thompson
> Sent: Tuesday, September 17, 2002 10:22 AM
> To: Jitendra Soam; [EMAIL PROTECTED]
>
Carter, what you're saying may work on Unix systems, but after 2 weeks of hair-pulling
last year, I gave up trying to use Net::Telnet on legacy Univac and Dec systems. The
module just couldn't handle the odd terminal emulation escape sequences that were
being fed to it (especia
;C:/" I'll need to match that within
my code as prompt.
If the prompt isn't matched in the time specified in
Timeout then the script will either return false or
die based on what Errmode is set to, return or die
respectively.
NET::Telnet Defaults:
Timeout = 10
Host = "loc
Jitranda,
I gave up trying to figure out what to use as a prompt for Net::Telnet when
connecting to Windows' telnet server.
Maybe someone out there will enlighten us both.
Tom
"Jitendra Soam" <[EMAIL PROTECTED]>@listserv.ActiveState.com on 09/17/2002
10:38:52 A
I have installed Net-Telnet on my pc and am trying to telnet to a vxworks
platform. Would anybody be able to enlighten me about how to get good
stuff back from a $obj->cmd() call? I am trying setting binmode,
changing the input separator etc ... but have yet to get good stuff back
from a sim
Hey everyone,
I have a wxPerl app that is using Net::Telnet to connect to a UNIX host to
run a script. As you can see from the example, the script is exectuted, and
then I want to watch the output log get updated, but I want to pipe that
into a Text area on the wxPerl app. I can't se
Hi
I have a Perl script that runs as CGI and uses Net::Telnet to connect to a
UNIX machine and execute a set of tasks. The system works except that the
user has to wait for the some time for the browser to show up something (it
waits till the control is returned from the Telnet process) . Part of
On Mon, 17 Jun 2002, Erich C. Beyrent wrote:
> Hi everyone,
>
> I need some assistance with a Net::Telnet project. I am trying to telnet from my
>Win2k box to a Solaris 2.8 host to run an application. I can telnet as root into the
>Solaris box via the command console, but when
Hi everyone,
I need some assistance with a Net::Telnet
project. I am trying to telnet from my Win2k box to a Solaris 2.8 host to
run an application. I can telnet as root into the Solaris box via the
command console, but when I try to do it through my Perl code, I get an invalid
username
You don't need to waitfor() the prompt. Just use cmd() and Net::Telnet will
automatically stop reading at the prompt. The prompt will not be included in
the return value of cmd().
This, of course, assumes you've specified the prompt correctly. If this is
your problem, you can us
Hello all,
I'm using the Net::Telnet module on a SunOS based
system to run a program that resides on a
Windoze 2k server.
By use of the log, I have determined that
connection, and login are fine.
But I keep getting a pattern match timed-out error.
According to the Help, it relates th
formatting. For
better or worse, that's how it is.
2) You use WAY too many question marks. The Recommended Sentence Allowance
is one.
3) I've never used Net::Telnet before, but I can make some guesses from all
this conversation you've been having...
You assign a great big value to $len
his operation.
-Original Message-From: Bryan Bateman
[mailto:[EMAIL PROTECTED]]Sent: Thursday, November 29,
2001 2:56 PMTo: Chad TowerCc:
[EMAIL PROTECTED]Subject: Re: Help for
Net::Telnet
Still getting buffer overflow. What is this
newbie doing wrong??
Still getting buffer overflow. What is this
newbie doing wrong??
my $len = 3001000;
.
.
.
.
$t = new Net::Telnet (Timeout => 200, Prompt
=> '/root\@hsvaps1/'); $len =
$t->max_buffer_length; $t->open("hsvaps1"); $t->login($u
Put it
right after you open the telnet object...
-Original Message-From: Bryan Bateman
[mailto:[EMAIL PROTECTED]]Sent: Thursday, November 29,
2001 1:40 PMTo: Chad TowerCc:
[EMAIL PROTECTED]Subject: Re: Help for
Net::Telnet
When and where do I apply it in the
code
When and where do I apply it in the
code??? No code example.
- Original Message -
From:
Chad Tower
To: 'Bryan Bateman'
Cc: '[EMAIL PROTECTED]'
Sent: Thursday, November 29, 2001 1:22
PM
Subject: RE: Help for Ne
an
To: [EMAIL PROTECTED]
Sent: Thursday, November 29, 2001 11:46
AM
Subject: Help for Net::Telnet
Having some problems specific to
Net::Telnet. Anyone know of a listserv that is appropriate for
help???
: [EMAIL PROTECTED]
Sent: Thursday, November 29, 2001 11:46
AM
Subject: Help for Net::Telnet
Having some problems specific to
Net::Telnet. Anyone know of a listserv that is appropriate for
help???
A small correction-> I am able to run it but not desired results. thanks.
Satish
>From: "Satish Vadlamani" <[EMAIL PROTECTED]>
>To: [EMAIL PROTECTED], [EMAIL PROTECTED]
>Subject: Re: Help with executing a command on remote machine using
>Net::Telnet
>Dat
;
use Cwd;
use File::Copy ;
use File::Path ;
use strict;
use Data::Dumper;
use Time::Local;
use Win32;
use Date::Calc;
use Net::Telnet;
$\ = "\n";
my $t;
#$t = Net::Telnet->new (Timeout => 10,Host => 'MatrixProd',Prompt =>
'/c:.*>/i');
$t = Net::Te
As specified in the Net::Telnet docs, your prompt should be a match string.
Try something like:-
prompt =>'/c:.*?>/' #untested on a full session but does not throw an error
when called as below
Andy
- Original Message -
From: "Satish Vadlamani" <[EMAIL PROT
MATRIX~1\DF\controls\scripts\RUN_PR~3.PL line 17
Here is the relevant part of my program. Thanks a lot if you can be of
help.
use Cwd;
use File::Basename;
use Env;
use Cwd;
use File::Copy ;
use File::Path ;
use strict;
use Data::Dumper;
use Time::Local;
use Win32;
use Date::Calc;
use Net
::telent's
getline empties the buffer. If I can't get this to unblock,
I wonder how big is the buffer? Will I loose anything?)
Signed fork rookie.
Signed net:: rookie.
Thanks.
use Net::Telnet ();
use POSIX ":sys_wait_h";
# Here the call in the parent's sub &
Is there a simple way to tell if the telnet connection
has died?
Was hoping for a $tel->isAlive test. Now I loop on getline
which returns undef and timeout error info. I can't seem to
verify the connection unless I close and reopen. Not allowed
to write the port for verification.
Th
My mistake...
the line $telnet->cmd("su");should have
been$telnet->print("su");
when I changed it, the waitfor command waited for
the "Password:" prompt.
works fine now... I'm just kinda new to this
and was following an example..
Thanks!
John
> $telnet->cmd("su");
su should require a password so normal users cannot
arbitrarly become root.
I have no familiarity with the Net::Telnet module, but I believe the SU
syntax is
actually 'SU -' to open a shell that you can log into.
TW
On Wed, 11 Apr 2001, John Williams wrote:
> I've had success with the Net::Telnet module. But I can't get the SU
> command to w
I've had success with the Net::Telnet module. But I can't get the
SUcommand to work. It times out waiting for a password.Any
ideas?Thanks!John---CODE#! perl remote
loginuse Net::Telnet ();$telnet = new Net::Telnet (Timeout =>
5);$telnet->open("192.134.
t;
use Net::Telnet;
my (@data, $line);
my $t = new Net::Telnet(
Timeout => '5',
Prompt => '/C:>/',
Dump_log => 'dump.log',
Input_log=> 'in
Hi,
Has anyone had this working, connecting to a Microsoft Telnet server ?
I posted earlier and still have the same problem, that the cmd is returning
no output, even though the output appears in the dump log.
Cheers,
Nick Djurovich
-
69 matches
Mail list logo
