I would place SFTPCOMInterface.CIServer in single quotes and I would
check your object reference $SFTPServer after "new" to make sure that it
executed ok.

Just some thoughts at the end of the day...


Nick

-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
[EMAIL PROTECTED]
Sent: Wednesday, May 24, 2006 2:59 PM
To: perl-win32-users@listserv.ActiveState.com
Subject: Question about Win32-OLE

This message is in MIME format. Since your mail reader does not
understand
this format, some or all of this message may not be legible.
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

Reply via email to