Eject And Close CD/DVD 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.

1) Open Your Notepad And Paste The Code Following Below

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

2) Now name it as you wish with .vbs extension....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(image).

Please Share This Article On Facebook Or Any Other Social 

Networks To Help Us A little...

= = = = = = = = = = *****Hack It Have It*****= = = = = = = =