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"
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.
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment
Do provide your constructive comment. I appreciate that.