🚀 go-pugleaf

Hello
Here is a little piece of code:

##################################################
use Win32::OLE;

$application=Win32::OLE->GetActiveObject('Word.Application');

 print "step 1";

 unless (defined $application)
 {
 $application=Win32::OLE->new('Word.Application', 'Quit') || warn
"Impossible de créer un objet OLE";
 print "step 2";
 $CloseWhenGoingOut=1;
 }

print "step 3 $fichier $application<BR>\n";

$document=$application->Documents->Open("$fichier");

print "step 4 <BR>\n $NomFichLocal <BR>\n  $CloseWhenGoingOut $document
av\n";
$res= $document->{'Name'};#
print "$res step 1.5 \n";
$res=$document->SaveAs('c:\temp\testtest.txt',wdFormatText);
print "\n normally $res saved 2 \n";
$res= $document->Saved;
print "$res step 4.5 \n";

$res=$document->{'Name'};

print "$res step 5 \n";
 $document->Close(0);

print "step 6\n";

 $application->quit();

 if (defined $CloseWhenGoingOut)
  {
  DESTROY ($application);
 print "step 7";
 }
#############################################

the $fichier looks allright (c:\InetPub\wwwroot\results\Or.doc)
the file exists and the same code works localy on my machine, but not on
the server.
the server (NT4) has Word and Excel installed, Active perl 5.09.

the error message goes :
Can't call method "SaveAs" on unblessed reference at assist.pl line
72...

I really cannot see what can go wrong...
any idears???

please also reply by email to maas@ensae.fr
 olivier

passme