Исходники VBScript: Генератор коротких путей DOS.

'Этот скрипт позволяет получить короткий путь к файлу.
'(C)Alex.Devil.LX 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, "Короткий путь к файлу:"

Исходники VBScript: Тест состояния DNS

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

Исходники VBScript: Калькулятор

Исходники VBScript: Решение квадратного уравнения

'Имя скрипта: Решалка квадратных уравнений.
'Описание: Данный скрипт автоматически за вас решит квадратное уравнение.
'Все что от вас требуется - это ввести три переменные и вы получите два корня и дискриминант.
'(C)Alex.Devil.LX 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