CONTINOUSLY EJECT CD/DVD DRIVES USING NOTEPAD TRICK

•    Open notepad
      •    Copy and paste following code in notepad

                 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 the file with .vbs extension eg. fun.vbs
        •    Open the saved file and see the magic.