1 Crazy notepad trick to continuously popout cd tray

Continuously pop out your friend’s CD Drive. If he / she has more than one, it pops out all of them! By seeing the below image I hope you will understand what the below crazy script actually does.

Open Notepad and Type :

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 “cdtray.VBS” and send it.
Note: when you copy the above code and save it in notepad, make the following changes to the first line of code as showed in below screenshotby typing through the keyboard.

Double Click it if you wanna see it working. Its a very funny Notepad Trick.

Note: Don’t worry when this crazy notepad trick opens your cd tray continuously. If you want to end this script simply Open Task Manager(Alt+Ctrl+Delete). Under Processes end the process “wscript.exe”