Set desktop on workstation with VB script

• Sep 23, 2004

• #2

teckiejon

Technical User

Feb 25, 2004

47

GB

This script adds registry entries pointing to a stored bmp on the machines hard drive, it changes the logon screen background and the desktop background, hope this is useful to you:

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite"HKEY_USERS\.DEFAULT\Control Panel\Desktop\Wallpaper","C:\test.bmp","REG_SZ"
WshShell.RegWrite"HKEY_USERS\.DEFAULT\Control Panel\Desktop\WallpaperStyle","0","REG_SZ"
WshShell.RegWrite"HKEY_CURRENT_USER\Control Panel\Desktop\Wallpaper","C:\test.bmp","REG_SZ"
WshShell.RegWrite"HKEY_CURRENT_USER\Control Panel\Desktop\WallpaperStyle","0","REG_SZ"
wscript.echo "Wallpaper settings have been changed"

 

Upvote 0 Downvote

• Sep 23, 2004

• #3

teckiejon

Technical User

Feb 25, 2004

47

GB

Oh the 0 value can be changed to 1 or 2 depending on whether you want your background to be tiled, stretched etc....

 

Upvote 0 Downvote

• Sep 23, 2004

• Thread starter
• #4

TheNewOne

Technical User

Mar 27, 2004

117

SI

Thx for your reply teckiejon. I forget to tell that we use W2k OS in our organization. Im getting an error "Invalid root in registry key ...."

 

Upvote 0 Downvote

• Sep 23, 2004

• #5

teckiejon

Technical User

Feb 25, 2004

47

GB

This should work it creates a new reg key and gives it the relevant detail:

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite"HKEY_CURRENT_USER\Software\Microsoft\Windows\Currentversion\Wallpaper","C:\test.bmp","REG_SZ"
wshShell.Regwrite"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\WallpaperStyle","0","REG_SZ"
wscript.echo "Wallpaper settings have been changed"

Hope this works a bit better for you!

 

Upvote 0 Downvote

• Sep 24, 2004

• Thread starter
• #6

TheNewOne

Technical User

Mar 27, 2004

117

SI

Thx for help teckiejon. Script works perfect. Do you maybe know wich registry values you must edit to set desktop background colour???

 

Upvote 0 Downvote