Código fuente en VBScript (Visual Basic Script) para abrir todas las bandejas de todos los lectores de CD/DVD de nuestro PC.
Para ejecutar el script VB 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». De esta forma, al ejecutarlo se compilará automáticamente con Microsoft Windows Based Script Host:
|
1 2 3 4 5 6 7 8 9 10 |
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 |
