Yes, thanks that is what the problem was the first un-install did not un-install everything correctly. Once I got everything, un-installed and reinstalled the compiler had started working. Thanks again for you help
Daniel C Hume
Senior Change Control Analyst
The Hertz Corporation
5601 NW Expressway
Oklahoma City, Oklahoma 73132
USA
405-264-8225
[EMAIL PROTECTED]
|
Kirk Batzer <[EMAIL PROTECTED]> 01/18/2006 03:11 PM |
|
Hi Daniel,
I've copied your code and compiled it on my PC. I'm running with WinXP-SP2, ActivePerl v5.8.4 build 810 and PDK 6 version: PerlApp 6.0.0 build 117102.
Perlapp shows no errors when compiling and creates the executable without any issues. I do not get the same errors you are getting.
You may try un-installing and re-installing perl and the PDK. When uninstaling, be sure to remove everything. Remove the perl directories,the PDK directories and Reboot. Then re-install both perl and the PDK. You'll also need to re-install the PPM and other modules.
Kirk
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Daniel C Hume
Sent: Wednesday, January 18, 2006 11:17 AM
To: [email protected]
Subject: Help WIN32 Problem
I have been trying to compile the follow code in Activestate Perl Dev Kit 6.0 on an Windows XP system.
#!perl
use Win32::OLE qw(in);
use File::Copy;
use Digest::MD5;
use File::Basename;
my ($status_ini_file, %msg);
$PasswordTesting = 0;
$status_ini_file = "s:\\Program Files\\CA\\AllFusion Harvest Change Manager\\Processes\\statusinifile.ini";
%status_ini_hash = &get_ini ($status_ini_file);
$msg = $status_ini_hash{"stopservice"}{"Qualmachines"};
print "(1)msg = $msg\n";
@stopserviceARG = split(/,/, $msg);
print "stopserviceARG array = @stopserviceARG\n";
$PackageCounter = 0;
foreach $package (@stopserviceARG)
{
$packageArray ="$package";
print "Package array = $packageArray\n";
$serviceinquestion = 'Messenger';
print "$serviceinquestion\n";
######################################################################
# stopping the sevice
######################################################################
$LoopCounter=0;
while ($LoopCounter < 10)
{
$strComputer = '.';
$objWMIService = Win32::OLE->GetObject('winmgmts:\\\\' . $strComputer . '\\root\\cimv2');
$colRunningServices = $objWMIService->ExecQuery('Select * from Win32_Service where DisplayName = "' . $serviceinquestion. '"', undef, 48);
foreach my $objService (in $colRunningServices)
{
if ($objService->DisplayName eq $serviceinquestion)
{
if ($objService->State eq 'Stopped')
{
print 'The Service ' . $objService->DisplayName . ' is : ' . $objService->State, "\n";
$LoopCounter=150;
} # end of if ($objService->State eq 'Running')
print 'The Service ' . $objService->DisplayName . ' is : ' . $objService->State, "\n";
if ($objService->State eq 'Running')
{
$cmdline = "net stop \"$serviceinquestion\"";
system "$cmdline";
}
# sleep 15;
$LoopCounter++;
} # end of if ($objService->DisplayName eq '$serviceinquestion')
} # end of foreach my $objService (in $colRunningServices)
} # end of while ($LoopCounter < 10)
$PackageCounter++;
}
print " \n";
print "Now that the Service has been stopped will proceed to restart the service\n";
print " \n";
Am receiving the following error when making an executable. I get this error with any call to use WIN32.
Can't load 'C:/Perl/site/lib/auto/Win32/OLE/OLE.dll' for module Win32::OLE: load_file:The specified module could not be found at /PerlApp/DynaLoader.pm line 212.
at S:\Program Files\CA\AllFusion Harvest Change Manager\Processes\winstatuscheck2.pl line 37
Compilation failed in require at S:\Program Files\CA\AllFusion Harvest Change Manager\Processes\winstatuscheck2.pl line 37.
BEGIN failed--compilation aborted at S:\Program Files\CA\AllFusion Harvest Change Manager\Processes\winstatuscheck2.pl line 37.
'S:\Program Files\CA\AllFusion Harvest Change Manager\Processes\winstatuscheck2.pl' had compilation errors.
[DONE]
Daniel C Hume
Senior Change Control Analyst
The Hertz Corporation
5601 NW Expressway
Oklahoma City, Oklahoma 73132
USA
405-264-8225
[EMAIL PROTECTED]
---------------
This message (including attachments) may contain information that is privileged, confidential or protected from disclosure. If you are not the intended recipient, you are hereby notified that dissemination, disclosure, copying, distribution or use of this message or any information contained in it is strictly prohibited. If you have received this message in error, please immediately notify the sender by reply e-mail and delete this message from your computer. Although we have taken steps to ensure that this e-mail and attachments are free from any virus, we advise that in keeping with good computing practice the recipient should ensure they are actually virus free.
---------------
---------------
This message (including attachments) may contain information that is privileged, confidential or protected from disclosure. If you are not the intended recipient, you are hereby notified that dissemination, disclosure, copying, distribution or use of this message or any information contained in it is strictly prohibited. If you have received this message in error, please immediately notify the sender by reply e-mail and delete this message from your computer. Although we have taken steps to ensure that this e-mail and attachments are free from any virus, we advise that in keeping with good computing practice the recipient should ensure they are actually virus free.
---------------
_______________________________________________ ActivePerl mailing list [email protected] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
