'Имя скрипта: Решалка квадратных уравнений.
'Описание: Данный скрипт автоматически за вас решит квадратное уравнение.
'Все что от вас требуется - это ввести три переменные и вы получите два корня и дискриминант.
'(C)HellWolf06 2011
Dim A, B, C, Descriminant, Sqrt_Discriminant, Result_Pls, Result_Min
A = InputBox ("Введите переменную A" & Chr (10) & "[A]x2+bx+c=0", "Решалка квадратных уравнений: Введите A", "Введите [A]x2")
B = InputBox ("Введите переменную B" & Chr (10) & "ax2+[B]x+c=0", "Решалка квадратных уравнений: Введите B", "Введите [B]x")
C = InputBox ("Введите переменную C" & Chr (10) & "ax2+bx+[C]=0", "Решалка квадратных уравнений: Введите C", "Введите [C]")
Discriminant = cint (B) ^2 - 4* cint (A) * cint (C)
MsgBox "Дискриминант: " & Discriminant
If Discriminant < 0 Then
MsgBox "Дискриминант меньше 0, из него квадратного корня нельзя извлечь, следовательно уравнение корней не имеет"
Else
Sqrt_Discriminant = Sqr (Discriminant)
Result_Pls = (-(cint (B)) + cint (Sqrt_Discriminant)) / (2 * cint (A))
Result_Min = (-(cint (B)) - cint (Sqrt_Discriminant)) / (2 * cint (A))
MsgBox "Результат при положительном дискриминанте: " & Result_Pls
MsgBox "Результат при отрицательном дискриминанте: " & Result_Min
End If

'Калькулятор V6
'(C)HellWolf06 2011
Dim Num1, Sign, Num2
Num1 = InputBox ("Введите первое число:", "Калькулятор V6", "")
Sign = InputBox ("Введите знак" & Chr (10) & "(Поддерживается: +, -, *, /, ^ и Sqrt):"_
& Chr (10) & "Для получения информации о скрипте введите About", "Калькулятор V6", "")
Num2 = InputBox ("Введите второе число:" & Chr (10) & "(Необязательно)", "Калькулятор V6", "")
'[+]Сложение
If Sign = "+" Then
Dim PlsResult
PlsResult = cint (Num1) + cint (Num2)
MsgBox PlsResult, 0, "Калькулятор V6"
End If
'[-]Вычитание
If Sign = "-" Then
Dim MinResult
MinResult = cint (Num1) - cint (Num2)
MsgBox MinResult, 0, "Калькулятор V6"
End If
'[*]Умножение
If Sign = "*" Then
Dim MulResult
MulResult = cint (Num1) * cint (Num2)
MsgBox MulResult, 0, "Калькулятор V6"
End If
'[/]Деление
If Sign = "/" Then
Dim DivResult
DivResult = cint (Num1) / cint (Num2)
MsgBox DivResult, 0, "Калькулятор V6"
End If
'[^]Возведение в квадрат
If Sign = "^" Then
Dim Root
Root = cint (Num1) ^ 2
MsgBox Root, 0, "Калькулятор V6"
End If
'[Sqrt]Извлечение квадратного корня
If Sign = "Sqrt" Then
Dim Sqrt
Sqrt = sqr(Num1)
MsgBox Sqrt, 0, "Калькулятор V6"
End If
If Sign = "sqrt" Then
Dim smallcasesqrt
smallcaseSqrt = sqr(Num1)
MsgBox smallcasesqrt, 0, "Калькулятор V6"
End If
'[About]Информация о скрипте
If Sign = "About" Then
MsgBox "Это калькулятор на VBScript." & Chr (10) &_
"Он поддерживает сложение, вычитание, умножение, деление, возведение в квадрат, извлечение квадратного корня."_
& Chr (10) & "(C)HellWolf06 24/02/2011", 0, "Калькулятор V6"
End If
If Sign = "about" Then
MsgBox "Это калькулятор на VBScript." & Chr (10) &_
"Он поддерживает сложение, вычитание, умножение, деление, возведение в квадрат, извлечение квадратного корня."_
& Chr (10) & "(C)HellWolf06 24/02/2011", 0, "Калькулятор V6"
End If
'[Error]В случаи ошибок
If Num1 = "" Then
MsgBox "Вы не ввели первое число!", 0, "Калькулятор V6"
End If
If Sign = "" Then
MsgBox "Вы ввели не верный знак!", 0, "Калькулятор V6"
End If

'Этот скрипт проверяет наличие интернета.
'(C)HellWol06 2011
Set WshShell = CreateObject ("WScript.Shell")
TestResult = WshShell.Run ("ping " & "www.google.com", 0, True)
If TestResult = 0 Then
MsgBox "Интернет работает! :)"
Else
MsgBox "Интернет не работает! :("
End If

'Этот скрипт позволяет получить короткий путь к файлу.
'(C)HellWolf06 2011
Set FSO = CreateObject ("Scripting.FileSystemObject")
'Создаем объект FileSystemObject
Set Dialog = CreateObject("UserAccounts.CommonDialog")
'Создаем диалог "Открыть файл"
Dialog.Filter = "Все файлы (*.*) | *.*"
Dialog.FilterIndex = 0
Dialog.InitialDir = "C:\Documents and Settings\%Username%\"
IntResult = Dialog.ShowOpen
'Настраиваем диалог
Set file1 = FSO.GetFile (Dialog.FileName)
ShPath = file1.ShortPath
MsgBox "Короткий путь к файлу: " & ShPath , vbQuestion, "Короткий путь к файлу:"

@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

Просто нужно удвоить! Пример:

С помощью "^"!
Пример:
start packagebin.exe --recursive-search=yes --files-mask=exe,dll,pdb,obj ^
--archive-type=zip --archive-level=max --deliver-method=ftp ^
--deliver-target=ftp://ftp.site.com