Here is the code I am using. Connection doesn't work. Any ideas? Dave?
use Win32::OLE;
$Class = "HclFtp.Engine";
$FtpEngine = Win32::OLE->CreateObject( $Class );
if( ! $FtpEngine )
{
$FtpEngine = new Win32::OLE( $Class, ) || die "Could not create an OLE '$Class'
object";
}
$FtpSessions = $FtpEngine->Sessions;
if( ! $FtpSessions ){print "error is $!\n";}
else {print "$FtpSessions is established\n";}
$Ftp1 = $FtpSessions->NewSession;
if( ! $Ftp1 ){print "error is $!\n";}
else {print "$Ftp1 is established\n";}
$Ftp1->{ServerName}="hamstc105.ms.com";
$Ftp1->{UserName} = "caseyd";
$Ftp1->{Password} = "uhuhok00";
$Ftp1->{LocalDirectory} = "c:/temp";
$Ftp1->{InitialHostDirectory} = "~caseyd/.custom";
$Ftp1->ConnectToHost() || die "Could not connect to host $!\n";
Dexter Casey wrote:
> Having read all the OLE stuff I can find and absorbed as much.
> I can now create an FTP engine and establish a session and set properties for host
> username and password. I cannot however call methods to ConnectToHost() or
> UserLogin().
> Does no one have any experience of this?
>
> rgds
>
> Dex
>
> Dexter Casey wrote:
>
> > Hello,
> >
> > Has anyone successfully managed to control these two application via
> > Perl using win32::OLE?
> > I have some examples of basic scripts that control these but I want to
> > do it from Perl and so far cannot create an instance of it
> >
> > This is a snipet that should start FTP.exe
> >
> > use Win32::OLE;
> > $Machine = "\\\\ha031515";
> > $classID= "HclFtp.Engine";
> > $Class = [$Machine, $classID];
> > $HostEx = Win32::OLE->GetActiveObject( $Class );
> > if( ! $HostEx )
> > {
> > $HostEx = new Win32::OLE( $Class, ) || die "Could not create an OLE
> > '$Class' object";
> > }
> > $Sessions = "FtpEngine.Sessions";
> >
> > but I get this.
> >
> > Name "main::Sessions" used only once: possible typo at hummingbird.pl
> > line 10.
> > Win32::OLE(0.1501) error 0x800401f3: "Invalid class string" at
> > hummingbird.pl line 5
> > eval {...} called at hummingbird.pl line 5
> >
> > Help!
> >
> > --
> > Dexter Casey
> > FA&O IT Support
> >
> > _______________________________________________
> > Perl-Win32-Admin mailing list
> > [EMAIL PROTECTED]
> > To unsubscribe: http://listserv.ActiveState.com/mailman/listinfo/perl-win32-admin
>
> _______________________________________________
> Perl-Win32-Admin mailing list
> [EMAIL PROTECTED]
> To unsubscribe: http://listserv.ActiveState.com/mailman/listinfo/perl-win32-admin
--
Dexter Casey
FA&O IT Support
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
