lunes, 30 de enero de 2017

Crear script con Visual Basic para abrir lector de CD

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:
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.

No hay comentarios:

Publicar un comentario