Consulta también:
- La unidad de dvd no abre
- Mi laptop no reconoce unidad de cd dvd - Guide
- Qué hacer si el lector de CD de tu PC no funciona: Windows - Guide
- Porque hotmail no abre - Guide
- Reproducir dvd en pc - Guide
- Como funciona un dvd - 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