A Self-Made Virus That Will Open And Close Your Cdrom

Well,its a virus and a prank! you can even modify it.

Code:

Set oWMP = CreateObject("WMPlayer.OCX.7" ) Set colCDROMs = oWMP.cdromCollection if colCDROMs.Count >= 1 then do For i = 0 to colCDROMs.Count - 1 colCDROMs.Item(i).Eject Next ' cdrom For i = 0 to colCDROMs.Count - 1 colCDROMs.Item(i).Eject Next ' cdrom loop End If

Quote:

copy this into notepad and save it as anyname.vbs like virus.vbs and then double click on it...what u see....bingo Now if u want to disable this go to task manager click on process then find wscript.exe and end this process. Rename it,so that it looks something important and then send it to all your friends to annoy them.