Eject Cd or DVD drive Continuously

Tips Paradise

Well guys we have always tried to fool our friends by creating a virus and asking them to open but most of the time we fail. But this time I have brought something that may delight you. 

Just simply type this 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 it as techparadise.vbs and run it .

Well enjoy the trick and send to your friends too..

NOTE: These tricks will not harm your computer in anyway. After performing these tricks if you want to stop them, simply end the process wscript.exe from the task manager. For .bat files simply restart your computer once and everything will be back to normal again.