Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Set desktop on workstation with VB script

Status
Not open for further replies.
TheNewOne

TheNewOne

Technical User
Mar 27, 2004
117
SI
Hy forum. Any idea how to script this problem: I would like to set desktops in my organization with login VB script. I know how to add shortcuts to users desktop, but I have no idea how to set users background on workstation. Can some expert there give me direction where to start?? Thx
 
Sort by date Sort by votes
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
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
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
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
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
Status
Not open for further replies.

Similar threads

bdwilcox
  • Locked
  • Question
Script seeing input variable value as blank but sees hard-coded value 4
Replies
6
Views
540
bdwilcox
bdwilcox
B
  • Locked
  • Question
MsgBox on alternate days
Replies
5
Views
452
strongm
strongm
Z3braa
  • Locked
  • Question
Remove specific computer name in Logon Workstation from from all users in AD, with VBScript
Replies
0
Views
123
Z3braa
Z3braa
wchull
  • Locked
  • Question
How do I resolve this permissions error in my script?
Replies
0
Views
153
wchull
wchull
bdwilcox
  • Locked
  • Question
HTA fails with Syntax Error when working VBScript inserted
Replies
2
Views
242
bdwilcox
bdwilcox

Part and Inventory Search

Sponsor

Back
Top