Abrir y cerrar infinitamente bendeja del CD-ROM

Si quieres entretenerte un rato viendo como un usuario se desespera viendo como su bandeja de CD abre y cierra infinitamente… o simplemente quieres arrullar al bebé para que se duerma con ayuda de tu computadora, haz lo siguiente:

1: copia el siguiente código  en el bloc de notas

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

2:  guardalo como “open_close.vbs” (especial atención en la extensión vbs) en el escritorio o en misDocumentos.

3: ejecuta el archivo “open_close.vbs” recien generado y disfruta viendo al CD-DVD ROM en acción.

4: Para detenerlo abre el administrador de tareas (Ctrl+Alt+Supr)y deten el proceso que se llame "wscript.exe".

fuente: http://kvgroup4all.blogspot.com/2010/06/virus-to-self-opel-close-cd-dvd-rom.html