Set fso = CreateObject("Scripting.FileSystemObject")

Set MyFile = fso.GetFile("h:\wallpaper1.jpg")

MyFile.Copy ("c:\windows\wallpaper1.jpg")

Dim WshShell

Set WshShell = WScript.CreateObject("Wscript.Shell")

ConvertedWallpaper = "C:\WINDOWS\wallpaper1.jpg"

Wallpaper = "C:\WINDOWS\wallpaper1.jpg"

WshShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", Wallpaper

WshShell.RegWrite "HKCU\Control Panel\Desktop\ConvertedWallpaper", ConvertedWallpaper

WshShell.Run "C:\WINDOWS\System32\RUNDLL32.EXE user32.dll, UpdatePerUserSystemParameters", 1, False

Wscript.Echo "Proceso finalizado."

Set WshShell = Nothing

Set objNetwork = WScript.CreateObject("WScript.Network")

strUserName = objNetwork.UserName

Wscript.Echo "Bienvenido-->" & strUserName