Dim shell : Set shell = CreateObject("WScript.Shell")

Dim wallpaper : wallpaper = "%userprofile%\Downloads\Intranet\Word_Download\scary monsters and nice spirits midi.bmp"

 

shell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", wallpaper

shell.RegWrite "HKCU\Control Panel\Desktop\Wallpaperstyle", 0

shell.RegWrite "HKCU\Control Panel\Desktop\tilewallpaper", 0

 

shell.Run "%SYSTEMROOT%\System32\rundll32.exe user32.dll,UpdatePerUserSystemParameters", 1, True