Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 296
  • Last Modified:

Wallpaper Script for non-roaming profile

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
lgropper
Asked:
lgropper
  • 3
  • 3
1 Solution
 
PberSolutions ArchitectCommented:
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
 
lgropperAuthor Commented:
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
 
PberSolutions ArchitectCommented:
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
Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

 
lgropperAuthor Commented:
Thank you very much Pber, i'll let you know how this works out!
0
 
lgropperAuthor Commented:
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
 
PberSolutions ArchitectCommented:
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

Free learning courses: Active Directory Deep Dive

Get a firm grasp on your IT environment when you learn Active Directory best practices with Veeam! Watch all, or choose any amount, of this three-part webinar series to improve your skills. From the basics to virtualization and backup, we got you covered.

  • 3
  • 3
Tackle projects and never again get stuck behind a technical roadblock.
Join Now