En ocasiones el pequeño botón que sirve para abrir el lector de CD/DVD de nuestro ordenador deja de funcionar, puede ser que para siempre o puede ser que en ciertas sesiones. Como método para aguantar un tiempo mas sin tener que cambiar el lector entero podemos hacer el siguiente script con Visual Basic, e cual guardaremos con extensión de archivo .vbs habiéndolo editado con el Bloc de notas o Notepad++ o cualquier otro editor:
Sin nos ponemos tiquismiquis, guardamos el archivo en una carpeta cualquiera y desde el escritorio creamos un acceso directo, al cual luego en Propiedades > Cambiar icono le ponemos un icono mas apropiado.
Un salud.
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
colCDROMs.Item(i).Eject
Sin nos ponemos tiquismiquis, guardamos el archivo en una carpeta cualquiera y desde el escritorio creamos un acceso directo, al cual luego en Propiedades > Cambiar icono le ponemos un icono mas apropiado.
Un salud.
