Hello World,

Thanks to all who contributed to the discussion that led to an eventual
solution, especially to Hirosi Taguti and James Coyle, whose suggestions
most influenced the final script.

I ended up making commandline calls utilizing the 'Shutdown' command from
Microsoft's Resource Kit. By the way, certain parameters following the
Shutdown command are important. The /l parameter specifies the local
machine, /r tells the system to reboot rather than to simply shutdown,
/t:XX is the length of the pause before shutdown where XX is the number of
seconds, and /y shuts the machine down without a yes/no prompt appearing
and is necessary for unattended operation.

I have scheduled the script to run periodically with the Task Scheduler,
another standard Microsoft utility.

For the sake of the many who followed this thread, the final script follows:

# www_service_check.pl

use LWP::Simple;

$url = "http://www.musar.com/echo.html";
$content = get($url);

if ($content) {
        Exit;
}

elsif (!$content) {
        $notice = "www_service_alert.txt";
        `Blat $notice -s "WWW Service Notice" -f info\@musar.com -t info\@musar.com`;
        `Shutdown /l /r /t:01 /y`;
}

#EOF

Thanks to all,

Tim

_______________________________________________
Perl-Win32-Web mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web

Reply via email to