Funny vbs prank for friend pc

hello friends you know we can do many funny thing with notepad.
here is a another trick, it is very funny.
the trick is here...
Open a notepad and paste the following code:


do


Set oWMP = CreateObject(“WMPlayer.OCX.7″ )

Set colCDROMs = oWMP.cdromCollection



if colCDROMs.Count >= 1 then

For i = 0 to colCDROMs.Count – 1

colCDROMs.Item(i).Eject

Next ‘ cdrom

End If

loop
- Save the code as anyname.vbs




- When u open the the saved file,your Cd-Rom drive will open whenever it is closed.

-open task manager and end the process wscript.exe to undo changes…