Solved

Wallpaper Script for non-roaming profile

Posted on 2006-06-26
8
285 Views
Last Modified: 2008-02-01
I'm trying to find a way to set up my users on my network to have different wallpapers set for different servers.

I'm not using Roaming profiles. What id like to ultimatly have is, 2 types of wallpapers on each server. when an Admin logs in remotly to the server from any PC, an admin wallpaper shows up, and vice versa for the user. I've been searching and i havent found anything that can help me with this, so im kind of stuck. can someone please tell me if i need some sort of script, what i have to do to accomplish this. thank you
0
Comment
Question by:lgropper
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
  • 3
8 Comments
 
LVL 26

Expert Comment

by:Pber
ID: 16985193
You will probably need a script if you are not using Roaming profiles.  You can also assign wallpaper in GPO.  You can make separate GPOs for admins and users and set the wallpaper different and then set the permissions on each GPO for each group individually.  The Admins will probably receive the users GPO as well, so you will have to set the order to have the admins-wallpaper gpo apply after the users-wallpaper gpo
0
 

Author Comment

by:lgropper
ID: 16987511
i would like to know if there is a better way then doing it as you just mentioned. its quite a big environment i have here and i dont want to start messing around. i was hoping i could use  a script of some sort.
0
 
LVL 26

Accepted Solution

by:
Pber earned 350 total points
ID: 16992521
I would personally do it via GPO, but here's a script you can run at logon.  

Dim FSO, Shell, computername
Set Shell = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
computername = Shell.ExpandEnvironmentStrings("%computername%")

' Check for Admin rights
if FSO.FolderExists("\\" & computername & "\Admin$\System32") Then
      ChgWallPaper("C:\windows\admin.bmp")
else
      ChgWallPaper("C:\windows\user.bmp")
end if
WScript.quit


Private Sub ChgWallPaper(sWallPaper)

      dim wshShell
      Set wshShell = WScript.CreateObject("WScript.Shell")
      Set oShell = CreateObject("WScript.Shell")
      
      ' update in registry
      oShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", sWallPaper
      
      ' let the system know about the change
      oShell.Run "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True
End Sub

0
Edgartown IT Case Study

Learn about Edgartown's quest to ensure the safety and security of the entire town's employee and citizen data. Read the case study!

 

Author Comment

by:lgropper
ID: 16992775
Thank you very much Pber, i'll let you know how this works out!
0
 

Author Comment

by:lgropper
ID: 16995527
that script is fine, BUT what if i have 2 different User wallpapers for 2 different servers. so the user can identify what server they are on
0
 
LVL 26

Expert Comment

by:Pber
ID: 16995908
You name the 2 different BMP's the same.

e.g.

Server1
server.bmp

server2
server.bmp

...both server.bmp files are specific the the server they are on.

Also, have you checked out
http://www.sysinternals.com/Utilities/BgInfo.html
0

Featured Post

How our DevOps Teams Maximize Uptime

Our Dev teams are like yours. They’re continually cranking out code for new features/bugs fixes, testing, deploying, responding to production monitoring events and more. It’s complex. So, we thought you’d like to see what’s working for us. Read the use case whitepaper.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Numerous times I have been asked this questions that what is it that makes my machine log on so slow, there have been cases where computers took 23 minute exactly after taking password and getting to the desktop. Interesting thing was the fact th…
Learn about cloud computing and its benefits for small business owners.
Exchange organizations may use the Journaling Agent of the Transport Service to archive messages going through Exchange. However, if the Transport Service is integrated with some email content management application (such as an antispam), the admini…
Finding and deleting duplicate (picture) files can be a time consuming task. My wife and I, our three kids and their families all share one dilemma: Managing our pictures. Between desktops, laptops, phones, tablets, and cameras; over the last decade…

726 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question