Funny vbs Prank For friend's PC

Funny vbs prank for friend pc:-
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…