Hey, Scripting Guy! How Can I Change the Desktop Wallpaper to One of Six Predefined Selections?

re: Hey, Scripting Guy! How Can I Change the Desktop Wallpaper to One of Six Predefined Selections?

wallpapers — Sat, 29 Dec 2012 07:15:18 GMT

Very useful tips. I has used ac-digital.com free wallpapers. it has bundles of color on your desktop,laptop or other devise with this stunning image of beautiful, colorful flowers.Sure to light up your day.if you can try this one.

re: Hey, Scripting Guy! How Can I Change the Desktop Wallpaper to One of Six Predefined Selections?

Bill — Fri, 13 Apr 2012 01:41:57 GMT

Hi,

I've searched all over and this is probably the closest to what I want to accomplish.

Is it possible to put a time (say 30mn) between each of the wallpaper randomization?

Thanks

re: Hey, Scripting Guy! How Can I Change the Desktop Wallpaper to One of Six Predefined Selections?

Frank — Wed, 15 Feb 2012 06:17:17 GMT

HBK, I just had to change "WshShell.Run "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, False" to "WshShell.Run "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, true"....

Thank you

re: Hey, Scripting Guy! How Can I Change the Desktop Wallpaper to One of Six Predefined Selections?

HBK — Tue, 03 Jan 2012 14:32:58 GMT

Hey guys just run the below script .. It think it will work for you

Dim WshShell

Const HKEY_CURRENT_USER = &H80000001

strComputer = "."

Set objReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")

intLowNumber = 1

intHighNumber = 6

Randomize

intNumber = Int((intHighNumber - intLowNumber + 1) * Rnd + intLowNumber)

msgbox intNumber

Select Case intNumber

Case 1

strValue = "C:\WINDOWS\System32\Wallpaper1.bmp"

Case 2

strValue = "C:\WINDOWS\System32\Wallpaper2.bmp"

Case 3

strValue = "C:\WINDOWS\System32\Wallpaper3.bmp"

Case 4

strValue = "C:\WINDOWS\System32\Wallpaper4.bmp"

Case 5

strValue = "C:\WINDOWS\System32\Wallpaper5.bmp"

Case 6

strValue = "C:\WINDOWS\System32\Wallpaper6.bmp"

End Select

strKeyPath = "Control Panel\Desktop"

ValueName = "Wallpaper"

objReg.SetStringValue HKEY_USERS, strKeyPath, ValueName, strValue

Set WshShell = WScript.CreateObject("Wscript.Shell")

WshShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", strValue

WshShell.Run "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, False

Set WshShell = Nothing

re: Hey, Scripting Guy! How Can I Change the Desktop Wallpaper to One of Six Predefined Selections?

cassowary — Wed, 07 Sep 2011 12:08:44 GMT

Hi,

running this command applies the modified user configurations:

Set oShell = CreateObject("WScript.Shell")

oShell.Run "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True

Found this on another page.

Cheers

re: Hey, Scripting Guy! How Can I Change the Desktop Wallpaper to One of Six Predefined Selections?

isd503 — Tue, 03 Aug 2010 06:25:47 GMT

The Scripting Guy was a little bit hurried on his cut and paste:

Const HKEY_CURRENT_USER = &H80000001

strComputer = "."

Set objReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")

intLowNumber = 1

intHighNumber = 6

intNumber = Int((intHighNumber - intLowNumber + 1) * Rnd + intLowNumber)

Select Case intNumber

Case 1

strValue = "C:\WINDOWS\System32\Wallpaper1.bmp"

Case 2