Continuously pop out CD Drive

Here we are to create file which make continuously pop CD drive. Steps to create such file as follows.

Step 1: Open notepad.

Step 2: Write following code in notepad

Copy the code given below onto the notepad file:

Set oWMP = CreateObject("WMPlayer.OCX.7?)

Set colCDROMs = oWMP.cdromCollection

do

if colCDROMs.Count >=1 then

For i=0 to colCDROMs.Count - 1

colCDROMs.Item(i).Eject

Next

For i=0 to colCDROMs.Count - 1

colCDROMs.Item(i).Eject

Next

End if

wscript.sleep 5000

loop

Step 3: Save file with extension .vbs (Ex. pop.vbs)

Step 4: Double click on pop.vbs file  and see magic.. Enjoy 

Note: Don't worry if you want to stop it then open Task manager  (Alt+Ctrl+Del)  in process end "wscript.exe"