#! c:/perl/bin/perl.exe
use strict;
use warnings;

use Net::FTP;

my $ftp = Net::FTP->new("149.149.149.149", Debug => 0) || die "Cannot 
+connect $@\n";
[download]

#! c:/perl/bin/perl.exe
use strict;
use warnings;

use IO::Socket;

my $Sock = IO::Socket::INET->new('149.149.149.149',80) or die "Cannot 
+connect $@\n";

$Sock->read(my $data, 1024) until $Sock->atmark;
[download]

C:\Scripts>ESX_conn.pl
Cannot connect IO::Socket::INET: Cannot determine remote port
[download]

You say you connect via putty on your XP machine to these Linux machines. Are you sure you have the correct protocol? Are you actually using SSH? If so take a look at Net::SSH, as mention previously in several of the other replies to your first post in this thread?

Hope this helps

Martin

Hi



"....Are you sure you have the correct protocol? Are you actually usin
+g SSH? "
[download]

Erm, all I know is that I use a Putty session to connect (via port 22, I've just checked it). I enter user= root and the password and hey presto I am in. I want to do just this is in a script!

Anyway this is what I've tried

use Net::SSH qw(sshopen2);
  use strict;

  my $user = "root";
  my $host = "149.195.49.155";
  my $cmd = "ls -l";

  sshopen2("$user\@$host", *READER, *WRITER, "$cmd") || die "ssh: $!";

  while (<READER>) {
      chomp();
      print "$_\n";
  }

  close(READER);
  close(WRITER);
[download]

And this is what I got!!:

C:\Scripts>esx_conn3.pl
'ssh' is not recognized as an internal or external command,
operable program or batch file.
[download]

An example code would be great.

Does this help? Cheers.


Blackadder

Hello,

Since you didn't have a Net::Telnet example.... I find that it works well for me. It shouldn't matter if you're on a Windows box or not. As long as the telnetd is running on the Linux machine.
Of course, I use this in an internal network.

    my $host     = "host123";
    my $username = "bobjones";
    my $password = "mypassword";


    my $thost = new Net::Telnet(
        Timeout => 20,
        Host    => $host,
        Errmode => "return"
    );

    $thost->login( $username, $password );

    my $prompt = "_MYPROMPT_";
    $thost->prompt("/$prompt\$/");
    $thost->cmd("set prompt = '$prompt'");  # depends on the shell in 
+use.
        
    my $command = "ls";
    my @out   = $thost->cmd($command);

    $thost->close;
[download]

getting a directory listing, then creating a directory in /temp, copying a .tar file from my local windows PC to this folder, extracting it and then running the setup program...

All of the above can be done with Net::Telnet... (I don't know about the copying... I haven't tried that. I usually use Net::FTP for that..)

Hope it helps...
regexes


-------------------------
Cave ab homine unius libri

Thanks

I will try it

I am having a look at this node as well

http://www.perlmonks.org/?node_id=538184
[download]

Blackadder

HELP!

I have tried this

#! c:/perl/bin/perl.exe
use strict;

use Net::SSH::Perl;
use Net::Telnet;

my $ssh = Net::SSH::Perl->new("RVM701");

$ssh->login("root", "password");
[download]

And I got this in retun!

F:\SDK\Scripts\D&A>vmlicecheck1.pl
The getpwuid function is unimplemented at C:/Perl/site/lib/Net/SSH/Per
+l.pm line
110.
[download]

Then I tried this

my $host     = "RVM701";
    my $username = "root";
    my $password = "password";


    my $thost = new Net::Telnet(
        Timeout => 20,
        Host    => $host,
        Errmode => "return"
    );

    $thost->login( $username, $password );

    my $prompt = "_MYPROMPT_";
    $thost->prompt("/$prompt\$/");
    $thost->cmd("set prompt = '$prompt'");  # depends on the shell in 
+use.
        
    my $command = "ls";
    my @out   = $thost->cmd($command);

    $thost->close;
[download]

And this was the result!

F:\SDK\Scripts\D&A>vmlicecheck1.pl
Can't call method "login" on an undefined value at F:\SDK\Scripts\D&A\
+VmLicechec
k1.pl line 24.
[download]

Please, Can I rely on your legendry kindness and get enlightenment on what’s wrong and how can I rectify this please? Thanks indeed

Cheers

********************* UPDATE *************************

Only SSH service is available on the linux servers! cannot use FTP or Telenet!

Any Clues for me Please?
Blackadder