Script that will continuously open CD Rom Drive

1. Copy The Following Code.
2. Paste it in to notepad.
3. Save it as ".vbs" Extension
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
do
colCDROMs.Item(i).Eject
wscript.sleep 2000
loop
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

This Script will continuously open Your CD Rom Drive