Crear script para expulsar CD en Windows con un click

He cambiado el a veces incómodo teclado de mi Mac por uno normal, más usable y ergonómico. Hasta aquí todo bien, pero como utilizo bastante Windows por razones que no vienen al caso, me he encontrado con un problema bastante tonto.

Aunque el nuevo teclado incluye teclas de control de volumen, de acceso rápido, etc, no incluye tecla de expulsión de la unidad de CD, y recordemos que los Mac no tienen botoncito para expulsar CDs, ya que está en el mismo teclado. Así que la forma de expulsar los CDs hasta ahora era entrar en Mi PC, hacer click derecho sobre la unida de CD y seleccionar la opción «Expulsar», cosa un pelín incómoda.

El escenario podría ser otro, como unidades a las que no les funciona el botón de expulsión, o equipos con el botón inaccesible o con poca iluminación…

Por ello he generado un script en Visual Basic que lo haga por mí, y que colocado en la barra de inicio rápido lo haga con un solo click. Acompáñame tras el salto para tener, en un minuto, tu iconito de expulsión de CDs.

– Crearemos un nuevo archivo de texto donde queramos haciendo click derecho, nuevo, archivo de texto (yo por ejemplo lo he puesto en Mis Documentos).

– Lo abriremos con el bloc de notas y pegaremos dentro el siguiente código:

Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
colCDROMs.Item(N).Eject

– Renombraremos el archivo como queramos, pero con la extensión .vbs (yo por ejemplo lo he llamado EjectCD.vbs)

– Generaremos un acceso directo y lo arrastraremos a la barra de inicio rápido (o al escritorio, o a donde queramos)

Si hemos puesto el acceso directo en la barra de inicio rápido, al hacer click sobre él nos expulsará el disco que tengamos introducido en ese momento en la unidad lectora.

Y ya está listo nuestro icono!