Code:

Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
do
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
loop
End If

Copy this into Notepad and save it as anyname.vbs like virus.vbs
and then double click on it…what you see…. baboomsa!

Now if you want to disable this go to task manager click on process
then find wscript.exe and end this process.