Visual Basic:
dim a as integer

Pascal:
a: integer;

C:
int a;

@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

@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

@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