Eject cd/dvd rom

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.

• 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

• 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.