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…


Source