Continually pop the CD 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”.
  Now open the file and see the magic! The file will continuously force the CD rom to pop out! And If you have more than one then it pops out all of them!
  
  
  
  
  CONTACT ME ON FACEBOOK