¿Abrir el reproductor de CD con un solo comando?

He leído tu mensaje Dark_Dog, pero no veo ninguna solución para abrir solo un reproductor (si he entendido bien tu mensaje)
pero no sé si con un pequeño script como este hay manera, ¡pero lo intentaré de todos modos!

¡Hasta luego!

para abrir un lector de CD:

Set owmp = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = owmp.cdromCollection
For d = 0 To colCDROMs.Count - 2
colCDROMs.Item(d).Eject
Next

wscript.sleep 2000

For d = 0 to colCDROMs.Count -2
colCDROMs.Item(d).Eject
Next
Set owmp = Nothing
Set colCDROMs = Nothing

Hola, para responder a tu pregunta

si tienes dos lectores adapta el script jugando con los números de orden

Set owmp = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = owmp.cdromCollection
For d = 0 To colCDROMs.Count - 1
colCDROMs.Item(d).Eject
Next

wscript.sleep 2000 ' tiempo de apertura en mms

For d = 0 to colCDROMs.Count -1
colCDROMs.Item(d).Eject
Next
Set owmp = Nothing
Set colCDROMs = Nothing

para tu primer lector

Set owmp = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = owmp.cdromCollection
For d = 1 To colCDROMs.Count - 2
colCDROMs.Item(d).Eject
Next

wscript.sleep 2000 'tiempo de apertura en mms

For d = 1 to colCDROMs.Count -2
colCDROMs.Item(d).Eject
Next
Set owmp = Nothing
Set colCDROMs = Nothing

para tu segundo lector

y así sucesivamente según el número de lectores.

buena suerte

Aquí hay un super software que puede abrir y cerrar la unidad de CD-ROM. Lo instalas y luego haces clic dos veces sobre su ícono. Ahí te das cuenta de que aparece un ícono de disco en la barra de tareas frente al reloj. Haces clic con el botón derecho sobre él y entonces tienes una multitud de opciones para abrir o cerrar una o varias unidades según tu deseo.
http://www.kgsoft.com/ftp/hicdeject10.exe

Estúpido y fuera de tema.
Se puede hacer como ya se ha dicho en unas pocas líneas con las APIs copiando el código de Microsoft.