Set objShell=CreateObject("Wscript.Shell") KeyName = "HKEY_USERS\.DEFAULT\Control Panel\Desktop" objShell.RegWrite KeyName & "Wallpaper", "\\server\share\image.jpg"