Trick to open CDROM Drive with one CLICK

Copy the below code and paste in notepad and save it as cdrom.vbs and then close it.
now  open it to use.....simple now it asks to open/close the drive...

 Set oWMP = CreateObject("WMPlayer.OCX.7")

Set colCDROMs = oWMP.cdromCollection

if colCDROMs.Count >= 1 then

for i=0 to colCDROMs.Count - 1

strDrive= oWMP.cdromCollection.item(i).driveSpecifier

colCDROMs.Item(i).Eject

strQuestion = "Close DRIVE " & strDrive & "?"

answer= msgbox (strQuestion, vbYESNO)

if answer= vbYES then colCDROMs.Item(i).eject:

next

end if

wscript.quit

Have a nice day enjoy the trick