Computer Prank to Pop Out CD Tray Continuously

• Open notepad.
• Copy paste below text into 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 this file as cdtray.VBS.

Its done.
Double click on file if you wanna see it working.

---

Thanks for coming by and taking your time to read this post :) I hope you have learnt something today and shared this. Now I'd love to hear from you. Got any views, thoughts and questions related to the post? I'm all ears here. Add your comment.