Consulta también:
- La unidad de dvd no abre
- Rufus no se pudo asignar una letra de unidad - Foro Windows 10
- Porque mi facebook se abre sin contraseña - Foro Facebook
- Windows usb/dvd download tool - Programas - Almacenamiento
- Como funciona un dvd - Guide
- Calculadora windows 10 no abre - Guide
3 respuestas
Fuchonto
Mensajes enviados
23
Fecha de inscripción
viernes, 2 de enero de 2009
Estatus
Miembro
Última intervención
jueves, 28 de mayo de 2009
20
22 may 2009 a las 14:34
22 may 2009 a las 14:34
Tenes que meter un alfiler o algo parecido en el agujerito que tiene en la tapa de la lectora
Intenta probando este código que me encontré por internet.
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
End If
Lo guardas en el block de notas con el nombre que quieras (yo le puse abrir unidad de cd) lo importante es que lo guardes con la extensión .vbs
luego le das doble click y se abrirá la unidad de DVD
Espero que te sirva porque yo también tenía el mismo problema
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
End If
Lo guardas en el block de notas con el nombre que quieras (yo le puse abrir unidad de cd) lo importante es que lo guardes con la extensión .vbs
luego le das doble click y se abrirá la unidad de DVD
Espero que te sirva porque yo también tenía el mismo problema
