Hi all,
I am having a problem accessing a commercial SFTP server app (non-MS). My code is below. I can instantiate the object but the connect method refuses to establish the connection.
use Win32::OLE;
my $Server = "localhost";
my $Port = "1000";
my $UserName = "Admin";
my $Password = "Admin";
my $SFTPServer = Win32::OLE->new("SFTPCOMInterface.CIServer");
$SFTPServer->connect( $Server, $Port, $UserName, $Password ) or die "Could not connect as $UserName to $Server:$Port!";
The above simple script throws this error:
Could not connect as Admin to localhost:1000! at C:\Source\SFTPTest.pl line 7.
I feel the parameters are being accepted because if I change $UserName or $Password, then I get a msg that logon failed.
These same parameters work in this VBS:
Set SFTPServer = WScript.CreateObject("SFTPCOMInterface.CIServer")
txtServer = "localhost"
txtPort = "1000"
txtUserName = "Admin"
txtPassword = "Admin"
SFTPServer.Connect txtServer, txtPort, txtUserName, txtPassword
Does anyone have a clue as to what might be going wrong? There seems to be an issue with OLE itself but this is beyond me.
Thanks again and best regards,
Sturdy
_______________________________________________ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
