I want to use Win32:Service to stop and start a service on a remote NT
server machine via http.
I use the following script:
use CGI qw/:all/;
use Win32::Service;
use Win32;
$action = param('do');
if ($action eq 'stop')
{
Win32::Service::StopService(servername, servicename);
print "", header, "service stopped";
end_html;
}
Unfortunately this doesn't work. I just receive the "service stopped" -
message but the service is still running.
If i run the following sript on the command prompt (it's the same without
CGI-connection) i manage to stop the service:
use Win32::Service;
use Win32;
Win32::Service::StartService(isurf, servicewrapper);
Where is the problem? Do i need special permissions to stop a service??
Thank you in advance
holger
---
You are currently subscribed to perl-win32-web as: [[email protected]]
To unsubscribe, forward this message to
[EMAIL PROTECTED]
For non-automated Mailing List support, send email to
[EMAIL PROTECTED]
