-Primero tenéis que crear un block de notas en vuestro escritorio. Después tenéis que abrir ese block de notas y pegar dentro de él esto:

​

MsgBox "Se ha detectado una amenaza por favor apaga el sistema",48

Dim speaks, speech

speaks="Se ha detectado una amenaza por favor apaga el sistema"

Set speech=CreateObject("sapi.spvoice")

speech.Speak speaks

​

-Por último tienes que cambiar el nombre del archivo, se tiene que llamar ´´virus.vbs´´. Lo importante es que termine en .vbs, lo que ponga antes, da igual.