vbscript - vbs の変更と壁紙の更新

Question

上司から、http から jpg ファイルをダウンロードして定期的に壁紙に変更するように要求されました。これが私のコードです。

dim xHttp: Set xHttp = createobject("Microsoft.XMLHTTP")
dim bStrm: Set bStrm = createobject("Adodb.Stream")
xHttp.Open "GET", "http://defsite.com/wallpaper/wallpaper.jpg", False
xHttp.Send

with bStrm
.type = 1 '//binary
.open
.write xHttp.responseBody
.savetofile "C:\Documents and Settings\Administrator\My Documents\My Pictures\Wallpaper\wallpaper.jpg", 2 '//overwrite
end with

Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "c:\windows\system32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True

ただし、WshShell.Run は画面上で更新できません。OS は XP です。それを行うアイデアはありますか？

親切にアドバイス！