Solved

Wallpaper Script for non-roaming profile

Posted on 2006-06-26
8
280 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
  • 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
Enterprise Mobility and BYOD For Dummies

Like “For Dummies” books, you can read this in whatever order you choose and learn about mobility and BYOD; and how to put a competitive mobile infrastructure in place. Developed for SMBs and large enterprises alike, you will find helpful use cases, planning, and implementation.

 

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

Enterprise Mobility and BYOD For Dummies

Like “For Dummies” books, you can read this in whatever order you choose and learn about mobility and BYOD; and how to put a competitive mobile infrastructure in place. Developed for SMBs and large enterprises alike, you will find helpful use cases, planning, and implementation.

Question has a verified solution.

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

I have never ceased to be amazed how many problems you can encounter on a fresh install of a Windows operating system.  This is certainly case in point& Unable to complete ANY MSI installation.  This means Windows Updates are failing and I can't …
I guess it is not common knowledge to most Wintel engineers/administrators: If you have an SNMP-based monitoring system in your environment (and it's common to have SNMP or Syslog) it's reasonably easy to enable monitoring of the Windows Event logs,…
A short film showing how OnPage and Connectwise integration works.
Need to grow your business through quality cloud solutions? With everything required to build a cloud platform and solution, you may feel like the distance between you and the cloud is quite long. Help is here. Spend some time learning about the Con…

932 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

Need Help in Real-Time?

Connect with top rated Experts

10 Experts available now in Live!

Get 1:1 Help Now