Continually pop the CD Drive

guys this is intresting and easy vbs program which you can use to scare your friends
    * Open 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

    * Save it as “Anything.VBS”.

Now open the file and see the magic! The file will continuously force the CD rom to pop out! And If you have more than one then it pops out all of them!