1. Ping-ование нескольких глобальных серверов (НЕ кратно 5 мин):
ДА - спим ХХ мин
НЕТ - повторяем PING минимум 3 раза

Если ДА - цикл п.1

2. Если НЕТ Редактируем время до Alarm минус ХХ мин
- проверяем, что никого нет, вешаем заставку
- сохраняем текущие ДАТА (может быть 23:55 и терем "встанет") и ВРЕМЯ
- "гасим" комп
- вкл по Alarm
- проверяем была ли корректировка ДАТА\ВРЕМЯ - ДА - возвращаем ДАТА\ВРЕМЯ

Ping ( Address или Hostname [, Timeout] )

$var = Ping("www.hiddensoft.com",250)
If $var Then ; also possible:  If @error = 0 Then ...
    Msgbox(0,"Status","Online, roundtrip was:" & $var)
Else
    Msgbox(0,"Status","An error occured with number: " & @error)
EndIf

Sleep(5000) ;five seconds

SplashTextOn("title", "text" [, w] [, h] [, x pos] [, y pos] [, opt] [, "fontname"] [, "fontsz"] [, "fontwt"])

Дата и время _Now (_NowTime _SetDate _SetTime)