Solved

Wallpaper Script for non-roaming profile

Posted on 2006-06-26
8
279 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
Comment Utility
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
Comment Utility
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
Comment Utility
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
6 Surprising Benefits of Threat Intelligence

All sorts of threat intelligence is available on the web. Intelligence you can learn from, and use to anticipate and prepare for future attacks.

 

Author Comment

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

Author Comment

by:lgropper
Comment Utility
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
Comment Utility
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

Enabling OSINT in Activity Based Intelligence

Activity based intelligence (ABI) requires access to all available sources of data. Recorded Future allows analysts to observe structured data on the open, deep, and dark web.

Join & Write a Comment

This may not be a text book method to resolve VSS backup issues but it seemed to have worked on few of the Windows 2003 servers we had issues while performing a Volume Shadow Copy backup. If you have issues while performing a shadow copy backup usin…
Scenerio: You have a server running Server 2003 and have applied a retail pack of Terminal Server Licenses.  You want to change servers or your server has crashed and you need to reapply the Terminal Server Licenses. When you enter the 16-digit lic…
Sending a Secure fax is easy with eFax Corporate (http://www.enterprise.efax.com). First, Just open a new email message.  In the To field, type your recipient's fax number @efaxsend.com. You can even send a secure international fax — just include t…
This tutorial demonstrates a quick way of adding group price to multiple Magento products.

763 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

16 Experts available now in Live!

Get 1:1 Help Now