Open CD Drive with a Simple Command?

I read your message Dark_Dog but I don't see any solution to open just one drive (if I understood your message correctly)
but I don't know if with a small script like this it’s possible but I will try anyway!

See you!

to open just a CD drive:

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

Hi, to answer your question

if you have two drives, adapt the script by playing with the order numbers

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 ' opening time in ms

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

for your first drive

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 ' opening time in ms

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

for your second drive

and so on depending on the number of drives.

good luck

Here's a great software that can open and close the CD-ROM drive. You install it, then you click on its icon a couple of times, and you'll notice an icon of a disk appearing in the taskbar in front of the clock. You right-click on it, and then you have a multitude of options to open or close one or multiple drives according to your will.
http://www.kgsoft.com/ftp/hicdeject10.exe

Stupid and off-topic.
It can be done as already stated in a few lines with the APIs by copying the Microsoft code.