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.
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
0 Response to "Eject cd/dvd rom"
Post a Comment