¿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