[Anonymоus]

Cashmar, вот вам батник:

Код:

@Echo Off
:: Начало рабочего времени
Set WTimeBegin=09:00:00
:: Конец рабочего времени
Set WTimeEnd=19:00:00


:: Сериализуем время для более удобного сравнения
Call :ParseTimestamp %WTimeBegin%&Call :SerializeTime
Set MinTime=%ErrorLevel%
Call :ParseTimestamp %WTimeEnd%&Call :SerializeTime
Set MaxTime=%ErrorLevel%
:: Проверяем, всё ли в порядке с рабочим временем, не перепутаны ли значения
If %MinTime% GEQ %MaxTime% Echo Промежуток времени задан неверно&Pause&Exit
:: Получаем текущее время
Call :ParseTimestamp %time:~-0,8%&Call :SerializeTime
Set CurrTime=%ErrorLevel%
:: Проверяем на вхождение в диапазон рабочего, если входит - выходим с сообщением
If %MinTime% LEQ %CurrTime% (
	If %CurrTime% LEQ %MaxTime% Echo Работай, негр, солнце ещё высоко!&Pause&Exit
)
:: Если время за пределами рабочего - выключаем.
Shutdown -s -f -t 1
Exit


:: Вызываемые функции
:ParseTimestamp
For /F "tokens=1,2,3 delims=:" %%A In ("%1") Do (Set HH=%%A&Set MM=%%B&Set SS=%%C)
Exit /B

:SerializeTime
Call :Cut %HH% HH&Call :Cut %MM% MM&Call :Cut %SS% SS
Set /A STime=(HH*60*60)+(MM*60)+SS
Exit /B %STime%

:Cut
Set i=%1
If "%i:~,1%"=="0" Set %2=%i:~1%
If "%i:~,1%"==" " Set %2=%i:~1%
Exit /B

[Cashmar]

Anonymоus, спасибо огромное, работает)) Понравилось "Работай, негр, солнце ещё высоко!"))) Ещё друг на Delphi написал, если кому понадобится обращайтесь!