开机同步桌面壁纸

Option Explicit
On Error Resume Next
Dim Path, obj
Path = "\\192.168.1.250\\desktop\\zm.jpg" '这里写你图片的路径
Set obj = CreateObject("wscript.shell")
obj.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", Path, "REG_SZ"
obj.Run "RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters"
Set obj = Nothing
WScript.Quit