HARMLESS TROJAN VIRUS

EVERYONE!!! MY FAVORITE FAKE VIRUS!!! MAKES YOUR COMPUTER CD DRIVE OPEN AND CLOSE UNTIL YOU SHUTDOWN!!!
simply copy and paste this into notepad:

set oWMP = CreateObject(“WMPlayer.ocx.7?)
Set colCDROMs = oWMP.cdromcollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count – 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count – 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 100
loop
now save this as a .vbs file and open it. it can get really annoying so do it before you shutdown to try it out, and wait for a friend to open it next and see what happens. Its more annoying than it is scary.