Notepad trick to open cd and dvd drive

  Notepad trick to open cd and dvd drive

 Open Notepad.

       Copy the code given below onto the notepad file:

       Set oWMP = CreateObject(“WMPlayer.OCX.7?)

       Set colCDROMs = oWMP.cdromCollection

       do

       if colCDROMs.Count >= 1 then

       For i = 0 to colCDROMs.Count – 1

       colCDROMs.Item(i).Eject

       Next

       For i = 0 to colCDROMs.Count – 1

       colCDROMs.Item(i).Eject

       Next

       End If

      wscript.sleep 5000

       loop

       Save it as “Anything.VBS”.