I have a script that shuts down services using Win32::Lanman and if it has
problems shutting down the service it finds out what process it's running on
and then kills that process. The Win32 module has a SystemShutdown function
that I've used for quite some time now with no problem. I'll send you what I
use if needed. I'm currently not in the office where I could send that to you.
> Hello World,
>
> This is related to my earlier posts called "a reboot script". Someone has
> suggested simply killing the offending process and restarting it rather
> than a full system reboot. I've modified the script to accommodate this
> good suggestion.
>
> I'm still having trouble, however, finding the proper syntax for the kill
> and restart portion of the script.
>
> My current script is....
>
>
> # www_service_test.pl
>
> use LWP::Simple;
>
> $url = "http://www.musar.com/echo.html";
> $content = get($url);
>
> if ($content) {
> Exit;
> }
>
> elsif (!$content) {
> $notice = "www_service_test.txt";
> `Blat $notice -s "WWW Service Notice" -f info\@musar.com -t
info\@musar.com`;
> # KILL inetinfo.exe;
> # NET START W3SVC;
> }
>
> # End
>
>
> The lines that have been commented out are where I am at a lost.
>
> Thank you.
>
> Tim
>
>
>
> _______________________________________________
> Perl-Win32-Web mailing list
> [EMAIL PROTECTED]
> http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
_______________________________________________
Perl-Win32-Web mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
