Eject - Load your CD/DVD drive by just click on file:

Here is a VBScript for ejecting & Loading a CD/DVD drive.
Just copy and paste the following content on a notepad and save with an extension of “.vbs”. Now on jest clicking on this file will eject your CD/DVD and wait for 30 sec to load, with in this 30 sec you have to place your CD/DVD which you want to play.

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
WScript.sleep 30000
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End