#Win32::OLE won't launch excel from cgi
#excel application permissions using dcomcnfg are set to full access
#excel appears as a process in windows task manager but shows about
3megs of usage (as opposed to about 5megs when launched normally).
#Apache error log results:
#[Tue Jul 26 09:13:57 2005] [error] [client 207.177.227.2]
Win32::OLE(0.1702) error 0x80080005: "Server execution failed" at
C:/Program Files/Apache Group/Apache2/cgi-bin/rcv.pl line 25, referer:
http://www.ccamp.org/test.htm
#[Tue Jul 26 09:13:57 2005] [error] [client 207.177.227.2] \teval {...}
called at C:/Program Files/Apache Group/Apache2/cgi-bin/rcv.pl line 25,
referer: http://www.ccamp.org/test.htm
Anyone have a fix for this????
#!C:/Perl/bin/perl.exe
#
use strict;
use CGI qw(:standard);
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
$Win32::OLE::Warn = 3; # die on errors...
print header;
print <<__END_OF_HTML_CODE__;
<!DOCTYPE doctype PUBLIC '-//w3c//dtd html 4.0 transitional//en'>
<HTML>
<HEAD>
<TITLE>Upload Finished</TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF">
Thank you for using the File Upload! system.
<HR SIZE=1>
</BODY>
</HTML>
__END_OF_HTML_CODE__
############### THE FOLLOWING LINE FAILS UNDER CGI BUT NOT WHEN
EXECUTING FROM COMMAND LINE ON SERVER
my $Excel = Win32::OLE->GetActiveObject('Excel.Application') ||
Win32::OLE->new('Excel.Application', 'Quit'); # get already active
Excel application or open new
############### THE FOLLOWING LINE FAILS UNDER CGI BUT NOT WHEN
EXECUTING FROM COMMAND LINE ON SERVER
#my $Excel = Win32::OLE->new('Excel.Application', 'Quit');
############### THE FOLLOWING LINE FAILS UNDER CGI BUT NOT WHEN
EXECUTING FROM COMMAND LINE ON SERVER
#my $Excel = Win32::OLE->new('Excel.Application');
$Excel->{'Visible'}=0;
my $Book = $Excel->Workbooks->Open("C:\\Program Files\\Apache
Group\\Apache2\\cgi-bin\\Reception.xls"); # open Excel file
$Excel->Run("collectfiles");
$Book->Close;
$Excel->quit();
exit;
_______________________________________________
Perl-Win32-Web mailing list
Perl-Win32-Web@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
