Paso 2: Copiar + pegar este código en el Bloc de notas
strName = wshShell.ExpandEnvironmentStrings ("% USERNAME %")
x = msgbox ("crítica: su sistema es afectado severamente por múltiples amenazas... Para anular todos los procesos, pulse 'Cancelar'. Para analizar otra vez, pulse 'Reintentar'. Para seguir todos los procesos, haga clic en 'Omitir'.", 2 + 16," Virus encontrado por Windows Defender © ")
WScript.sleep 2000
MsgBox "Fallo del sistema en % WINDIR %", 48, ERROR
WshShell.Run "cmd"
WScript.sleep 200
WshShell.SendKeys "cls"
WScript.sleep 200
WshShell.SendKeys "{ENTER}"
WScript.sleep 200
WshShell.SendKeys "A"
WScript.sleep 200
WshShell.SendKeys "r"
WScript.sleep 200
WshShell.SendKeys "e"
WScript.sleep 200
WshShell.SendKeys ""
WScript.sleep 200
WshShell.SendKeys "y"
WScript.sleep 200
WshShell.SendKeys "o"
WScript.sleep 200
WshShell.SendKeys "u"
WScript.sleep 200
WshShell.SendKeys ""
WScript.sleep 200
WshShell.SendKeys "s"
WScript.sleep 200
WshShell.SendKeys "c"
WScript.sleep 200
WshShell.SendKeys "a"
WScript.sleep 200
WshShell.SendKeys "r"
WScript.sleep 200
WshShell.SendKeys "e"
WScript.sleep 200
WshShell.SendKeys "d"
WScript.sleep 200
WshShell.SendKeys ","
WScript.sleep 200
WshShell.SendKeys ""
WScript.sleep 200
WshShell.SendKeys strName
WScript.sleep 200
WshShell.SendKeys "?"
x = msgbox ("?", 4)
WshShell.SendKeys "{ENTER}"
WshShell.SendKeys "cls"
WshShell.SendKeys "{ENTER}"
Si x = 6 entonces
WScript.sleep 200
WshShell.SendKeys "G"
WScript.sleep 200
WshShell.SendKeys "o"
WScript.sleep 200
WshShell.SendKeys "o"
WScript.sleep 200
WshShell.SendKeys "d"
WScript.sleep 200
WshShell.SendKeys ","
WScript.sleep 200
WshShell.SendKeys ""
WScript.sleep 200
WshShell.SendKeys "y"
WScript.sleep 200
WshShell.SendKeys "o"
WScript.sleep 200
WshShell.SendKeys "u"
WScript.sleep 200
WshShell.SendKeys ""
WScript.sleep 200
WshShell.SendKeys "s"
WScript.sleep 200
WshShell.SendKeys "h"
WScript.sleep 200
WshShell.SendKeys "o"
WScript.sleep 200
WshShell.SendKeys "u"
WScript.sleep 200
WshShell.SendKeys "l"
WScript.sleep 200
WshShell.SendKeys "d"
WScript.sleep 200
WshShell.SendKeys ""
WScript.sleep 200
WshShell.SendKeys "b"
WScript.sleep 200
WshShell.SendKeys "e"
WScript.sleep 200
WshShell.SendKeys "."
WScript.sleep 200
WshShell.SendKeys "."
WScript.sleep 200
WshShell.SendKeys "."
WshShell.SendKeys "{ENTER}"
WScript.sleep 100
WshShell.SendKeys "salida"
WScript.sleep 100
WshShell.SendKeys "{ENTER}"
End If
Si x = 7 entonces
WScript.sleep 200
WshShell.SendKeys "N"
WScript.sleep 200
WshShell.SendKeys "o"
WScript.sleep 200
WshShell.SendKeys "?"
WScript.sleep 500
WshShell.SendKeys ""
WScript.sleep 200
WshShell.SendKeys "."
WScript.sleep 200
WshShell.SendKeys "."
WScript.sleep 200
WshShell.SendKeys "."
WScript.sleep 200
WshShell.SendKeys "Y"
WScript.sleep 200
WshShell.SendKeys "o"
WScript.sleep 200
WshShell.SendKeys "u"
WScript.sleep 200
WshShell.SendKeys ""
WScript.sleep 200
WshShell.SendKeys "s"
WScript.sleep 200
WshShell.SendKeys "h"
WScript.sleep 200
WshShell.SendKeys "o"
WScript.sleep 200
WshShell.SendKeys "u"
WScript.sleep 200
WshShell.SendKeys "l"
WScript.sleep 200
WshShell.SendKeys "d"
WScript.sleep 200
WshShell.SendKeys ""
WScript.sleep 200
WshShell.SendKeys "b"
WScript.sleep 200
WshShell.SendKeys "e"
WScript.sleep 200
WshShell.SendKeys "."
WScript.sleep 200
WshShell.SendKeys "."
WScript.sleep 400
WshShell.SendKeys "{ENTER}"
WScript.sleep 100
WshShell.SendKeys "salida"
WScript.sleep 100
WshShell.SendKeys "{ENTER}"
End If
WshShell.Run "cmd"
WScript.sleep 500
WshShell.SendKeys "dir"
WScript.sleep 100
WshShell.SendKeys "{ENTER}"
WScript.sleep 1000
WshShell.SendKeys "dir"
WScript.sleep 100
WshShell.SendKeys "{ENTER}"
WScript.sleep 2000
WshShell.SendKeys "cls"
WScript.sleep 40
WshShell.SendKeys "{ENTER}"
WScript.sleep 40
WshShell.SendKeys "pronto eliminar cookies..."
WScript.sleep 40
WshShell.SendKeys "{ENTER}"
WScript.sleep 40
WshShell.SendKeys "cls"
WScript.sleep 40
WshShell.SendKeys "{ENTER}"
WScript.sleep 2000
WshShell.SendKeys "indicador de eliminación de usuarios..."
WScript.sleep 40
WshShell.SendKeys "{ENTER}"
WScript.sleep 40
WshShell.SendKeys "cls"
WScript.sleep 40
WshShell.SendKeys "{ENTER}"
WScript.sleep 2000
WshShell.SendKeys "indicador de borrado de disco 'C:'..."
WScript.sleep 200
WshShell.SendKeys "{ENTER}"
WScript.sleep 40
WshShell.SendKeys "cls"
WScript.sleep 40
WshShell.SendKeys "{ENTER}"
WScript.sleep 1000
x = msgbox ("¿confirma que desea eliminar permanentemente todos los directorios, los archivos y los subarchivos en la variable de entorno: '% ALLDATA'?", 4 + 32, "C:\")
WScript.sleep 2000
WshShell.SendKeys "indicador de borrado de sistema 32..."
WScript.sleep 70
WshShell.SendKeys "{ENTER}"
WScript.sleep 40
WshShell.SendKeys "cls"
WScript.sleep 40
WshShell.SendKeys "{ENTER}"
WScript.sleep 1000
WshShell.SendKeys "salida"
WScript.sleep 200
WshShell.SendKeys "{ENTER}"
WScript.sleep 4000
MsgBox "Just kidding:)"