Posts

Showing posts with the label windows-7

Change Wallpaper in Windows 7

Change Wallpaper in Windows 7 I have written a small vbs script to download and change the registry for the current users wallpaper. however it copies and does the change but the wallpaper does not change... any ideas on errors in the below code? Option Explicit Dim WshShell, strValue, sleepTime, oFSO strValue = "C:wallpaper.bmp" sleepTime = 30000 Set oFSO = CreateObject("Scripting.FileSystemObject") oFSO.CopyFile "\anspksnms1OSDScriptswallpaperwallpaper.bmp", "C:" Set WshShell = WScript.CreateObject("Wscript.Shell") WshShell.RegWrite "HKCUControl PanelDesktopWallpaper", strValue WScript.Sleep sleepTime WshShell.Run "%windir%System32RUNDLL32.EXE user32.dll, UpdatePerUserSystemParameters", 1, False Set WshShell = Nothing Have you tried changing "1, False" to "1, True"? The code in one of the answers uses True, experts-exchange.com/OS/Microsoft_Operating_Systems/Windows/…...