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 processwscript.exe > highlight it and click End process(image).