Make a simple virus – eject cd rom using script

You can make a simple virus using notepad.actually it is a VB script. make note this is a virus.

• Open note pad
• Copy the code below

Set oWMP = CreateObject(“WMPlayer.OCX.7″)

Set colCDROMs = oWMP.cdromCollection

if colCDROMs.Count >= 1 then

For i = 0 to colCDROMs.Count – 1

colCDROMs.Item(i).Eject

Next ‘ cdrom

End If

Set oWMP = CreateObject(“WMPlayer.OCX.7″)

Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count – 1
colCDROMs.Item(i).Eject
Next ‘ cdrom
End If

• paste it on notepad now save it as  fox.vbs
• Run and see

after running this script it ejects CD or DVD rom till you restarts your PC. to stop this restart your machine or catch your rom tray for a while when ejects it.