Open DVD or cd drive infinitely - fun with VBS script

We can do many funny things with VBS scripts and one of the most famous trick is ejecting a cd/dvd drive infinitely. In our previous posts we had given some of the best notepad tricks but not this type of funny(some what prank) vbs script. So lets see how to do it.
Step #1: Open up your notepad and copy paste the following code.

Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
do
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
loop
End If

Step #2: Now name it as you wish with .vbs extection EX: openup.vbs
That’s it your done, to activate it just double click the file you just created. If you wish stop it open task manager by pressing ctrl+alt+del > click on process tab > find the process wscript.exe > highlight it and click End process