Eject Your DVD Drive for Infinite Times Usind VBS script (funny prank)

It is really a very interesting VBS script. You can make your friends fool using it. all you have to do is just open the notepad and copy the following code and save the file as eject.vbs

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

for running this file just double
click the eject.vbs file now see the magic, your dvd drive will eject automatically if you will insert it again then it will eject again.

so now the problem is that how to stop it ?
there are two ways to stop this prank
1) you restart your computer
2) open task manager > processes and end the process named "wscript.exe".

that's all
thankyou