Solved

Wallpaper Script for non-roaming profile

Posted on 2006-06-26
8
282 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
NAS Cloud Backup Strategies

This article explains backup scenarios when using network storage. We review the so-called “3-2-1 strategy” and summarize the methods you can use to send NAS data to the cloud

 

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

PRTG Network Monitor: Intuitive Network Monitoring

Network Monitoring is essential to ensure that computer systems and network devices are running. Use PRTG to monitor LANs, servers, websites, applications and devices, bandwidth, virtual environments, remote systems, IoT, and many more. PRTG is easy to set up & use.

Question has a verified solution.

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

Setting up a Microsoft WSUS update system is free relatively speaking if you have hard disk space and processor capacity.   However, WSUS can be a blessing and a curse. For example, there is nothing worse than approving updates and they just have…
ADCs have gained traction within the last decade, largely due to increased demand for legacy load balancing appliances to handle more advanced application delivery requirements and improve application performance.
This Micro Tutorial demonstrates using Microsoft Excel pivot tables, how to reverse engineer competitors' marketing strategies through backlinks.
Microsoft Active Directory, the widely used IT infrastructure, is known for its high risk of credential theft. The best way to test your Active Directory’s vulnerabilities to pass-the-ticket, pass-the-hash, privilege escalation, and malware attacks …

777 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