Мои новые программки на BATCH:
Описание программы: Эта программа устанавливает сервер времени на ОС.
Язык программирования / Среда: BATCH/Коммандная строка.
Код программы:@echo off
title Установка Network Time Protocol сервера... (C)HellWolf06 2011
::Этот скрипт автоматически устанавливает Network Time Protocol сервер.
::(C)HellWolf06 2011
echo 1.Импорт настроек в реестр...
regedit /S ntpserver.reg
echo Импорт настроек завершен успешно!
echo Добавление .cmd файла перезапуска NTP сервера на рабочий стол...
copy "Перезапуск сервера времени.cmd" "C:\Documents and Settings\%username%\Рабочий стол"
echo .cmd файл успешно добавлен на рабочий стол!
echo Перезапуск службы времени...
net stop w32time&&net start w32time
echo Служба времени перезапущена!
pause
cls
echo Сервер NTP установлен успешно!
echo (C)HellWolf06 2011
pause
Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\w32time\Config]
"AnnounceFlags"=dword:00000005
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\w32time\Parameters]
"Type"="NTP"
"WriteLog"="True"
"Log"=dword:00000064
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\w32time\TimeProviders\NtpServer]
"Enabled"=dword:00000001
@echo off
::Этот скрипт перезапускает службу времени.
::(C)HellWolf06 2011
echo Перезапуск службы времени...
net stop w32time&&net start w32time
echo Служба времени перезапущена!
echo (C)HellWolf06 2011
pause
Обратите внимание: Присоздании batch файла не забудьте выставить кодировку на OEM866 (Киррилица)!
Добавлено спустя 9 минут 35 секунд:Описание программы: Эта программа выставляет часы на 13:37 и дату на 6 июня 6666.
Язык программирования / Среда: BATCH/Коммандная строка.
@echo off
title Time Disaster (C)HellWolf06 2011
:start
time 13:37
date 06.06.6666
echo (C)HellWolf06 2011
ping -n 60 localhost > nul
cls
goto start
Добавлено спустя 11 минут 47 секунд:Описание программы: Это мессенджер для локальной сети.
Язык программирования / Среда: BATCH/Коммандная строка.
@echo off
:: Это мессенджер.
:: (C)HellWolf06 2011
title Мессенджер
echo Установка автозапуска службы мессенджера...
sc config messenger start= auto
echo Запуск службы мессенджера...
net start messenger
chcp 866
mode con: cols=80 lines=25
set /P list="Введите IP адрес или Имя Хоста: "
:eof
set /P text="Введите сообщение: "
net send %list% %text%
call:eof
Сообщение отредактировано 6 февраля 2011 17:18. Редактировалось 2 раз(а)