The "gibberish" is ANSI escape sequences for moving the cursor around on the screen that the telnet server believes it is connected to. You need to turn it of with the ANSI sequence by ensuring that Console mode is no. >From the Net::Telnet POD. Connecting to a Remote Win32 Machine
By default, Windows machines don't come with a TELNET service. However, third party TELNET servers can be acquired to provide access to a DOS shell. As is all too familiar, many of these servers are of inferior quality. One particularly nasty problem is a server that sends ANSI terminal escape sequences despite being told not to. These escape sequences make your job of parsing the data much more difficult. You can sometimes avoid this with a server that prompts you for *console mode*. Choose *no* to console mode. -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On Behalf Of John Serink Sent: Wed November 27 2002 21:08 To: [EMAIL PROTECTED]; [EMAIL PROTECTED] Subject: Net::Telnet on Win2K Hi All: Sorry to be sending this to both Win32-Admin and Win32-users but trying to solicit advice from as many parties as possible. Also, apologies for this being so long. My problem: Differences in the operation of the Win2K Telnet Server (included with Win2K) and the Telnet server form the WindozeNT Resource Kit(note, a patch from MS is required for the telnet.inf file to install this properly). I am using the 'waitfor' method at the moment as I have been having problems with the cmd method on Win2K (why this is becomes clear later in the discussion). Here is my test script, 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 -> dump_log("dump.txt"); 9 $telnet -> input_log("input.txt"); 10 11 $telnet->open($destination); 12 #$telnet->waitfor('/login: $/i'); # Used for Win2K log on. 13 $telnet->waitfor('/Username: $/i'); #Used for NT log on. 14 $telnet->print('Administrator'); 15 $telnet->waitfor('/Password: $/i'); 16 $telnet->print('12345'); 17 $telnet->waitfor('/\>/i'); 18 print("We have received the prompt, we are in\n"); 19 $time = localtime(); 20 print("Sending now at $time\n"); 21 $telnet->print('now'); 22 print("Waiting for the prompt\n"); 23 my ($prematch, $match) =$telnet->waitfor('/C:/i'); 24 print("The characters before the $match were:\n"); 25 print("$prematch\n"); 26 $time = localtime(); 27 print("finished at $time\n"); Now, this script works perfect using the NT RK Telnet server. This is the output: *D:\Perl\practice\examples\Telnet>perl telnetoff7.pl *We have received the prompt, we are in *Sending now at Thu Nov 28 09:44:36 2002 *Waiting for the prompt *The characters before the C: were: *now * *Thu Nov 28 09:39:48 2002 * * *finished at Thu Nov 28 09:44:36 2002 * *D:\Perl\practice\examples\Telnet> Exactly as one would expect. Now here is the command line output from the script running to a Win2K telnet server: *D:\Perl\practice\examples\Telnet>perl telnetoff7.pl *We have received the prompt, we are in *Sending now at Thu Nov 28 09:43:05 2002 *Waiting for the prompt *The characters before the C: were: * ?[5;1H?[K?[6;1H?[K?[7;1H *?[K?[8;1H?[K?[9;1H?[K?[10;1H?[K?[11;1H?[K?[12;1H?[K?[13;1H?[K?[14;1H?[K?[15;1H?[K?[16;1H?[K?[17;1H?[ *K?[18;1H?[K?[19;1H?[K?[20;1H?[K?[21;1H?[K?[22;1H?[K?[23;1H?[K?[24;1H?[K?[25;1H?[K?[4;5H?[4;5Hnow?[6; *1HThu Nov 28 09:35:53 2002?[8;1H *finished at Thu Nov 28 09:43:05 2002 * *D:\Perl\practice\examples\Telnet>perl telnetoff7.pl As you can see, loads of gibberish. Obviously, at this stage of the game one looks at the dump_log and input_log files....and here is where it gets interesting. Here is the dump_log file from NT, the telnet server that works with Net::Telnet as expected: < 0x00000: 0a 0d 0a 0d 0a ..... < 0x00000: 45 43 48 4f 20 69 73 20 6f 66 66 2e 0d 0a ECHO is off... < 0x00000: 57 65 6c 63 6f 6d 65 20 74 6f 20 74 68 65 20 54 Welcome to the T < 0x00010: 65 6c 6e 65 74 20 53 65 72 76 69 63 65 20 42 65 elnet Service Be < 0x00020: 74 61 2e 20 20 54 68 69 73 20 73 65 72 76 69 63 ta. This servic < 0x00030: 65 20 69 73 20 73 74 69 6c 6c 20 61 0d 0a 77 6f e is still a..wo < 0x00040: 72 6b 20 69 6e 20 70 72 6f 67 72 65 73 73 2e 20 rk in progress. < 0x00050: 20 50 6c 65 61 73 65 20 63 68 65 63 6b 20 74 68 Please check th < 0x00060: 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 66 74 70 20 e following ftp < 0x00070: 6c 6f 63 61 74 69 6f 6e 20 66 6f 72 0d 0a 74 68 location for..th < 0x00080: 65 20 6d 6f 73 74 20 63 75 72 72 65 6e 74 20 76 e most current v < 0x00090: 65 72 73 69 6f 6e 20 6f 66 20 74 68 69 73 20 74 ersion of this t < 0x000a0: 6f 6f 6c 3a 0d 0a 45 43 48 4f 20 69 73 20 6f 66 ool:..ECHO is of < 0x000b0: 66 2e 0d 0a 20 20 20 20 66 74 70 20 6e 74 72 6b f... ftp ntrk < 0x000c0: 2e 6d 69 63 72 6f 73 6f 66 74 2e 63 6f 6d 5c 74 .microsoft.com\t < 0x000d0: 65 6c 6e 65 74 64 5c 0d 0a 45 43 48 4f 20 69 73 elnetd\..ECHO is < 0x000e0: 20 6f 66 66 2e 0d 0a 54 6f 20 72 65 70 6f 72 74 off...To report < 0x000f0: 20 62 75 67 73 20 6f 72 20 72 65 71 75 65 73 74 bugs or request < 0x00100: 20 6d 6f 72 65 20 54 65 6c 6e 65 74 64 20 69 6e more Telnetd in < 0x00110: 66 6f 72 6d 61 74 69 6f 6e 20 70 6c 65 61 73 65 formation please < 0x00120: 20 65 6d 61 69 6c 0d 0a 6d 65 20 61 74 20 74 65 email..me at te < 0x00130: 6c 6e 65 74 64 40 6e 74 72 6b 2e 6d 69 63 72 6f [EMAIL PROTECTED] < 0x00140: 73 6f 66 74 2e 63 6f 6d 2e 0d 0a 45 43 48 4f 20 soft.com...ECHO < 0x00150: 69 73 20 6f 66 66 2e 0d 0a 43 3a 5c 57 49 4e 4e is off...C:\WINN < 0x00160: 54 5c 73 79 73 74 65 6d 33 32 3e T\system32> > 0x00000: 6e 6f 77 0d 0a now.. < 0x00000: 6e n < 0x00000: 6f 77 0d 0a ow.. < 0x00000: 0d 0a 54 68 75 20 4e 6f 76 20 32 38 20 30 39 3a ..Thu Nov 28 09: < 0x00010: 33 39 3a 34 38 20 32 30 30 32 0d 0a 39:48 2002.. < 0x00000: 0d 0a 43 3a 5c 57 49 4e 4e 54 5c 73 79 73 74 65 ..C:\WINNT\syste < 0x00010: 6d 33 32 3e m32> No drama here. But now look at the Win2K dump_log: < 0x00000: ff fb 01 ff fd 03 ff fd 1f ff fd 00 ff fb 00 4d ÿû.ÿý.ÿý.ÿý.ÿû.M < 0x00010: 69 63 72 6f 73 6f 66 74 20 28 52 29 20 57 69 6e icrosoft (R) Win < 0x00020: 64 6f 77 73 20 28 54 4d 29 20 56 65 72 73 69 6f dows (TM) Versio < 0x00030: 6e 20 35 2e 30 30 20 28 42 75 69 6c 64 20 32 31 n 5.00 (Build 21 < 0x00040: 39 35 29 0d 0a 57 65 6c 63 6f 6d 65 20 74 6f 20 95)..Welcome to < 0x00050: 4d 69 63 72 6f 73 6f 66 74 20 54 65 6c 6e 65 74 Microsoft Telnet < 0x00060: 20 53 65 72 76 69 63 65 20 0d 0a 54 65 6c 6e 65 Service ..Telne < 0x00070: 74 20 53 65 72 76 65 72 20 42 75 69 6c 64 20 35 t Server Build 5 < 0x00080: 2e 30 30 2e 39 39 32 30 31 2e 31 0a 0d 6c 6f 67 .00.99201.1..log < 0x00090: 69 6e 3a 20 in: > 0x00000: ff fd 01 ff fc 03 ff fc 1f ff fc 00 ff fe 00 ÿý.ÿü.ÿü.ÿü.ÿþ. > 0x00000: 41 64 6d 69 6e 69 73 74 72 61 74 6f 72 0d 0a Administrator.. < 0x00000: 41 64 6d 69 6e 69 73 74 72 61 74 6f 72 0a 0d 70 Administrator..p < 0x00010: 61 73 73 77 6f 72 64 3a 20 assword: > 0x00000: 31 32 33 34 35 0d 0a 12345.. < 0x00000: 2a 2a 2a 2a 2a ff fd 18 *****ÿý. > 0x00000: ff fc 18 ÿü. < 0x00000: 1b 5b 31 3b 31 48 2a 3d 3d 3d 3d 3d 3d 3d 3d 3d .[1;1H*========= < 0x00010: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================ < 0x00020: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================ < 0x00030: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================ < 0x00040: 3d 3d 3d 3d 3d 3d 20 20 20 20 20 20 20 20 20 20 ====== < 0x00050: 20 20 20 20 20 20 1b 5b 32 3b 31 48 57 65 6c 63 .[2;1HWelc < 0x00060: 6f 6d 65 20 74 6f 20 4d 69 63 72 6f 73 6f 66 74 ome to Microsoft < 0x00070: 20 54 65 6c 6e 65 74 20 53 65 72 76 65 72 2e 20 Telnet Server. < 0x00080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 < 0x00090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 < 0x000a0: 20 20 20 20 20 20 20 20 20 20 20 20 1b 5b 33 3b .[3; < 0x000b0: 31 48 2a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 1H*============= < 0x000c0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================ < 0x000d0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================ < 0x000e0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================ < 0x000f0: 3d 3d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 == < 0x00100: 20 20 1b 5b 34 3b 31 48 43 3a 5c 3e 20 20 20 20 .[4;1HC:\> < 0x00110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 < 0x00120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 < 0x00130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 < 0x00140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 < 0x00150: 20 20 20 20 20 20 20 20 1b 5b 35 3b 31 48 1b 5b .[5;1H.[ < 0x00160: 4b 1b 5b 36 3b 31 48 1b 5b 4b 1b 5b 37 3b 31 48 K.[6;1H.[K.[7;1H < 0x00170: 1b 5b 4b 1b 5b 38 3b 31 48 1b 5b 4b 1b 5b 39 3b .[K.[8;1H.[K.[9; < 0x00180: 31 48 1b 5b 4b 1b 5b 31 30 3b 31 48 1b 5b 4b 1b 1H.[K.[10;1H.[K. < 0x00190: 5b 31 31 3b 31 48 1b 5b 4b 1b 5b 31 32 3b 31 48 [11;1H.[K.[12;1H < 0x001a0: 1b 5b 4b 1b 5b 31 33 3b 31 48 1b 5b 4b 1b 5b 31 .[K.[13;1H.[K.[1 < 0x001b0: 34 3b 31 48 1b 5b 4b 1b 5b 31 35 3b 31 48 1b 5b 4;1H.[K.[15;1H.[ < 0x001c0: 4b 1b 5b 31 36 3b 31 48 1b 5b 4b 1b 5b 31 37 3b K.[16;1H.[K.[17; < 0x001d0: 31 48 1b 5b 4b 1b 5b 31 38 3b 31 48 1b 5b 4b 1b 1H.[K.[18;1H.[K. < 0x001e0: 5b 31 39 3b 31 48 1b 5b 4b 1b 5b 32 30 3b 31 48 [19;1H.[K.[20;1H < 0x001f0: 1b 5b 4b 1b 5b 32 31 3b 31 48 1b 5b 4b 1b 5b 32 .[K.[21;1H.[K.[2 < 0x00200: 32 3b 31 48 1b 5b 4b 1b 5b 32 33 3b 31 48 1b 5b 2;1H.[K.[23;1H.[ < 0x00210: 4b 1b 5b 32 34 3b 31 48 1b 5b 4b 1b 5b 32 35 3b K.[24;1H.[K.[25; < 0x00220: 31 48 1b 5b 4b 1b 5b 34 3b 35 48 1H.[K.[4;5H > 0x00000: 6e 6f 77 0d 0a now.. < 0x00000: 1b 5b 34 3b 35 48 6e 6f 77 1b 5b 36 3b 31 48 54 .[4;5Hnow.[6;1HT < 0x00010: 68 75 20 4e 6f 76 20 32 38 20 30 39 3a 33 35 3a hu Nov 28 09:35: < 0x00020: 35 33 20 32 30 30 32 1b 5b 38 3b 31 48 43 3a 5c 53 2002.[8;1HC:\ < 0x00030: 3e 1b 5b 38 3b 35 48 >.[8;5H Now, there is no point at looking at the input_log from the working session(THE ntrk SERVER) but the input_log file form the Win2K session is interesting: *Welcome to Microsoft Telnet Service *Telnet Server Build 5.00.99201.1 * *login: Administrator * *password: *****[1;1H*=============================================================== [2;1HWelcome to Microsoft Telnet Server. [3;1H*=============================================================== [4;1HC:\> [5;1H[K[6;1H[K[7;1H[K[8;1H[K[9;1H[K[10;1H[K[11;1H[K[12;1H[K[13;1H[K[14;1H[K[15;1H[K[16;1H[K[17;1H[K[18;1H[K[19;1H[K[20;1H[K[21;1H[K[22;1H[K[23;1H[K[24;1H[K[25;1H[K[4;5H[4;5Hnow[6;1HThu Nov 28 09:35:53 2002[8;1HC:\>[8;5H Notice that the 'password' line has no CRLF at the end nor is there any CRLF from there to tend of the session. Somehow, Net::Telnet cannot parse the output from Win2K properly and from the dump_log, the Win2K telnet server is outputting stuff that looks VERY different from the NTRK Telnet server. Also, I have run this against a Cisco Router, using an appropriate Cisco IOS command of course, and it works just like the NTRK telnet server. So, my question is to any Telnet server expert out there: What are the differences in the telnet servers on Win2K and NTRK? How can I tweak Net::Telnet to work with the Win2K telnet server? Cheers, John _______________________________________________ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs _______________________________________________ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
