A continuación mostramos el código VBScript para abrir todas las bandejas de todos los lectores de CD/DVD de nuestro PC.

Para ejecutar el script hay que copiar el siguiente código a un fichero de texto plano y guardarlo con el nombre que se quiera y con extensión .vbs, por ejemplo "abrirCD.vbs". Así al ejecutarlo se compilará automáticamente con Microsoft Windows Based Script Host.

Set objPlayer = CreateObject("WMPlayer.OCX.7")
Set collCDROM = objPlayer.cdromCollection

' recorremos todos los dispositivos que sean CD/DVD
' y los expulsamos (abrimos la bandeja)
if collCDROM.Count >= 1 then
    For i = 0 to collCDROM.Count - 1
        collCDROM.Item(i).Eject
    Next
End If

Publicado el: 2013-07-23