Copy the Coding :
X=MsgBox("virus is detected",1+16,"Alert")
Set x=WScript.CreateObject("WScript.Shell")
for i = 1 to 5
x.Run"hydra2.vbs"
wscript.sleep 500
set ab=CreateObject("SAPI.SpVoice")
set ab.Voice=ab.GetVoices.Item(1)
ab.Speak"virus detected Subscribe J Techcode"
next