Utilizamos cookies propias y de terceros. Al navegar entendemos que aceptas el uso de cookies. +Info.
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Usuario
· Wiki

Nick


Contraseña


Nuevo usuario


English
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

Este sitio web NO CONTIENE malware, todos los programas con código fuente aquí. Autor: Alonso Javier Pérez Díaz Google+ Síguenos en Google+