abrir la bandeja de cdrom

Pero tiene un pequeño defecto. Después de ejecutar la apertura,se queda en
memoria cargado el script como este proceso:
C:\windows\System32\WScript.exe. Comprobarlo con el administrador e tareas
mismo. No me gusta dejar cargado en memoria un script aunque sea inofensivo.

"Gabi" escribió en el mensaje
news:O6hXRCm$

Gracias, ya lo he aplicado.Correcto.

"José Gallardo" escribió en el mensaje
news:OgDCY8l$

Para abrir la primera, guárdate lo que hay entre las líneas (la línea no
se copia) en un archivo del bloc de notas con el nombre que quieras,
pero con extensión vbs. Doble click sobre el archivo para abrir la
bandeja:

Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then


For i = colCDROMs.Count - 2 to colCDROMs.Count - 2
colCDROMs.Item(i).Eject
Next ' cdrom

End If
-


Y para la segunda:

Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then


For i = colCDROMs.Count - 1 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom

End If
-

Gabi wrote:

Dos unidades, una lectora de cdrom normal asignada como R: y un grabador
de
dvd asignada como W:
"José Gallardo" escribió en el mensaje
news:OoXMLxl$

¿Cuántas bandejas tienes y cuál quieres abrir?

Gabi wrote:

¿como se puede generar un icono para abrir la bandeja de CDRom desde
él?

¿Problemas con Windows Update?
http://www.fermu.com/content/section/5/37/lang,es/
Windows Update Issues?
http://www.fermu.com/content/section/5/37/lang,us/

¿Problemas con Windows Update?
http://www.fermu.com/content/section/5/37/lang,es/
Windows Update Issues?
http://www.fermu.com/content/section/5/37/lang,us/

Efectivamente, el script es algo cutre, por no decir algo más fuerte. He
buscado scripts y los que he encontrado no me han funcionado. Sin
embargo, he encontrado una aplicación llamada "Wizmo" que parece una
pequeña maravilla. Es un exe directamente ejecutable, es decir que no se
instala. Además puede hacerse muy cómodamente. Descárgalo de aquí al
escritorio:

http://grc.com/files/wizmo.exe

Una vez descargado, click derecho sobre él y elige "Crear acceso
directo". Una vez creado el acceso directo, click derecho sobre él >
Propiedades y en "Destino" añade al final de la línea (pulsando la barra
espaciadora antes de escribir nada) "open=r", sin comillas. Acepta, y
cuando hagas doble click sobre el acceso directo se te abre. Igual para
la otra. Para más información sobre todo lo que hace "Wizmo":

http://grc.com/wizmo/wizmo.htm

Gabi wrote:

Pero tiene un pequeño defecto. Después de ejecutar la apertura,se queda en
memoria cargado el script como este proceso:
C:\windows\System32\WScript.exe. Comprobarlo con el administrador e tareas
mismo. No me gusta dejar cargado en memoria un script aunque sea inofensivo.

"Gabi" escribió en el mensaje
news:O6hXRCm$

Gracias, ya lo he aplicado.Correcto.

"José Gallardo" escribió en el mensaje
news:OgDCY8l$

Para abrir la primera, guárdate lo que hay entre las líneas (la línea no
se copia) en un archivo del bloc de notas con el nombre que quieras,
pero con extensión vbs. Doble click sobre el archivo para abrir la
bandeja:

Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then


For i = colCDROMs.Count - 2 to colCDROMs.Count - 2
colCDROMs.Item(i).Eject
Next ' cdrom

End If
-


Y para la segunda:

Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then


For i = colCDROMs.Count - 1 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom

End If
-

Gabi wrote:

Dos unidades, una lectora de cdrom normal asignada como R: y un grabador
de
dvd asignada como W:
"José Gallardo" escribió en el mensaje
news:OoXMLxl$

¿Cuántas bandejas tienes y cuál quieres abrir?

Gabi wrote:

¿como se puede generar un icono para abrir la bandeja de CDRom desde
él?

¿Problemas con Windows Update?
http://www.fermu.com/content/section/5/37/lang,es/
Windows Update Issues?
http://www.fermu.com/content/section/5/37/lang,us/

¿Problemas con Windows Update?
http://www.fermu.com/content/section/5/37/lang,es/
Windows Update Issues?
http://www.fermu.com/content/section/5/37/lang,us/

¿Problemas con Windows Update?
http://www.fermu.com/content/section/5/37/lang,es/
Windows Update Issues?
http://www.fermu.com/content/section/5/37/lang,us/

Incluso ese procedimiento te llevará dos click del ratón. Si quieres
uno, guarda lo que hay entre líneas (las líneas no se copian) con el
nombre que quieras pero con extensión cmd:

cd\%userprofile%\escritorio
wizmo open=e
exit
-
Al hacer doble click sobre el cmd se ejecutará. Si guardas el programa
en otra ubicación tendrás que cambiar el cmd.

José Gallardo wrote:

Efectivamente, el script es algo cutre, por no decir algo más fuerte. He
buscado scripts y los que he encontrado no me han funcionado. Sin
embargo, he encontrado una aplicación llamada "Wizmo" que parece una
pequeña maravilla. Es un exe directamente ejecutable, es decir que no se
instala. Además puede hacerse muy cómodamente. Descárgalo de aquí al
escritorio:

http://grc.com/files/wizmo.exe

Una vez descargado, click derecho sobre él y elige "Crear acceso
directo". Una vez creado el acceso directo, click derecho sobre él >
Propiedades y en "Destino" añade al final de la línea (pulsando la barra
espaciadora antes de escribir nada) "open=r", sin comillas. Acepta, y
cuando hagas doble click sobre el acceso directo se te abre. Igual para
la otra. Para más información sobre todo lo que hace "Wizmo":

http://grc.com/wizmo/wizmo.htm

Gabi wrote:

Pero tiene un pequeño defecto. Después de ejecutar la apertura,se queda en
memoria cargado el script como este proceso:
C:\windows\System32\WScript.exe. Comprobarlo con el administrador e tareas
mismo. No me gusta dejar cargado en memoria un script aunque sea inofensivo.

"Gabi" escribió en el mensaje
news:O6hXRCm$

Gracias, ya lo he aplicado.Correcto.

"José Gallardo" escribió en el mensaje
news:OgDCY8l$

Para abrir la primera, guárdate lo que hay entre las líneas (la línea no
se copia) en un archivo del bloc de notas con el nombre que quieras,
pero con extensión vbs. Doble click sobre el archivo para abrir la
bandeja:

Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then


For i = colCDROMs.Count - 2 to colCDROMs.Count - 2
colCDROMs.Item(i).Eject
Next ' cdrom

End If
-


Y para la segunda:

Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then


For i = colCDROMs.Count - 1 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom

End If
-

Gabi wrote:

Dos unidades, una lectora de cdrom normal asignada como R: y un grabador
de
dvd asignada como W:
"José Gallardo" escribió en el mensaje
news:OoXMLxl$

¿Cuántas bandejas tienes y cuál quieres abrir?

Gabi wrote:

¿como se puede generar un icono para abrir la bandeja de CDRom desde
él?

¿Problemas con Windows Update?
http://www.fermu.com/content/section/5/37/lang,es/
Windows Update Issues?
http://www.fermu.com/content/section/5/37/lang,us/

¿Problemas con Windows Update?
http://www.fermu.com/content/section/5/37/lang,es/
Windows Update Issues?
http://www.fermu.com/content/section/5/37/lang,us/

¿Problemas con Windows Update?
http://www.fermu.com/content/section/5/37/lang,es/
Windows Update Issues?
http://www.fermu.com/content/section/5/37/lang,us/