Option Explicit
dim wshShell, sUserName, oShell, oFSO, sWinDir
dim wp

Set wshShell = WScript.CreateObject("WScript.Shell")
sUserName = wshShell.ExpandEnvironmentStrings("admin")
Set oShell = CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")

sWinDir = oFSO.GetSpecialFolder(0)
wp(0) = """D:\Programmation\Intranet\Word_Download\scary monsters and nice spirits midi.bmp"""

oShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", wp(0)
oShell.Run "d:\WINDOWS\system32\rundll32.exe user32.dll,UpdatePerUserSystemParameters", 1, True