Eject cd/dvd rom

---

Anonymous on 8:12 pm

---

We can do many funny things with VBS scripts and one of the most famous trick is ejecting a cd/dvd drive infinitely.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.

Thanks for visiting my blog plz comment if you like my post
Share it.......

Filled Under:

Computer Tricks