Continuous CD Drive Ejection

By this trick you can make your friends freak out. The following code can make your CD drive open continuously. Just follow the below code in notepad and save the file as filename.vbs .          


set wmp = createObject("wmplayer.ocx.7")         
set drives = wmp.cdromCollection         
sub open_saysame()
        on error resume next

        do
        if drives.count >= 1 then
        for i = 0 to drives.count - 1
        drives.item(i).eject()
        next
        end if
        loop
        end sub
        open_saysame()

If you want to run this code on every start of windows simply copy the file to startup folder (Start Menu > All Programs > Startup).

If you once keep this file in your friends computer and freak him. ......