Hi Nick,
Thanks for your thoughts (it was a looong day). I did both. I trapped LastError after instantiating the object and new() does not throw an error. However, I can't tell if it is occurring correctly.
Sturdy
> -----Original Message-----
> From: Bharucha, Nikhil [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, May 24, 2006 6:09 PM
> To: [EMAIL PROTECTED]; perl-win32-
> [EMAIL PROTECTED]
> Subject: RE: Question about Win32-OLE
>
> 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
