Open all CD Drives Again and Again

Here is a cool Notepad Prank which automatically ejects and inserts CD/DVD Drives repeatedly.



First of all open Notepad and copy the following code.

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 3000
loop


Save the file as cd.vbs on your computer. Finally open the file and see the magic.

You can disable the command any time by opening task manager and ending the process named wscript.exe