Easy way to open cd drive with three line Statements

Easy way to open cd drive with three line Statements :
Code:
Set creatingwscript = WScript.CreateObject("wscript.Shell")
Set play = CreateObject("WMPlayer.ocx")
play.cdromCollection.item(0).Eject()
  1. Open notepad
  2. Paste the above Visual Basic Code
  3. Save the notepad with (any name).vbs format
  4. Double Click to see ur cd drive tray to
...