Utilizamos cookies propias y de terceros. [Más información sobre las cookies].
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Wiki
Abrir bandeja CD DVD ROM VBScript
Visual Basic Script VBScript

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

Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A