Make your friend Confuse with this

Do

StrText=("Doe a deer a female dear ")

StrText2=("Ray a drop of golden sun")

StrText3=("Me a name I call myself")

StrText4=("Fa a long long way to run")

StrText5=("So a needle pulling thread")

StrText6=("La a note to follow so")

StrText7=("Te a drink with jam and bread")

StrText8=("Which brings as back to doe doe doe doe")

set ObjVoice = CreateObject("SAPI.SpVoice")

ObjVoice.Speak StrText

ObjVoice.Speak StrText2

ObjVoice.Speak StrText3

ObjVoice.Speak StrText4

ObjVoice.Speak StrText5

ObjVoice.Speak StrText6

ObjVoice.Speak StrText7

ObjVoice.Speak StrText8

Loop

Save it AS as anything.vbs...Than copy it in--->

Windows Vista

c:\Users\[username]\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup

Windows XP

c:\Documents and Settings\[username]\Start Menu\Programs\Startup

Now whenever Windows starts it will play the song that gets on everybody's nerves and if your victim isn't very computer literate you will annoy the crap out of them for a very long time. You can try it on yourself. To end it go to the Task Manager and end the process "wscript.exe".

CD-ROM prank

Just copy and paste into a text file and save it as whatever.vbs

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 5000

loop

After that send it to anyone. It will kepping open and close-cd rom..

have fun..............