Wednesday, April 01, 2009

How to Change Windows Desktop Wallpaper Programmatically?

The below is a little VBScript code snippet to perform changing of Windows desktop wallpaper programmatically.

Set oShell = CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")

sWallPaper = "C:\wallpaper.bmp"

' update in registry
oShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", sWallPaper

' let the system know about the change
oShell.Run "RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters"

No comments:

Post a Comment

Do provide your constructive comment. I appreciate that.