Try Win32::Service.

Functions of interest are:

StopService($hostName, $svcName);
StartService($hostName, $svcName);
PauseService($hostName, $svcName);
ResumeService($hostName, $svcName);

You can execute any of the functions of this module on
remote-servers attached to the same network that you
are and you should have ADMINISTRATOR level privileges
on those machines so as to control their services, via
remote-registry.

Cheers,
Rex


--- "Yuen, Alex" <[EMAIL PROTECTED]> wrote:
> Hi,
> 
> Does anyone know if Perl can stop or start a Service
> in Windows NT or 2000?
> 
> Trying to write a script to stop the Service of an
> application, archive the
> log files and then restart the Service. Plus, record
> this transaction to a
> seperate log file. Another plus, send out an e-mail
> notification if an error
> were to occur in any step of the Perl script.
> 
> Haven't decided to attach the log to the e-mail or
> not. But would be using
> Mime::Lite for this.
> 
> Thanks.
> 
> Alex
> 
> -- 
> To unsubscribe, e-mail:
> [EMAIL PROTECTED]
> For additional commands, e-mail:
> [EMAIL PROTECTED]
> 


__________________________________________________
Yahoo! - We Remember
9-11: A tribute to the more than 3,000 lives lost
http://dir.remember.yahoo.com/tribute

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to