Wallpaper based on client screen resolution

is there any posible way to assign different wallpaper resolution by GPO based on client screen resolution setting??

like wide screen users will get the wide screen background
normal will get the normal one?
uaeabudhabi77Asked:
Who is Participating?
 
bluntTonyHead of ICTCommented:
Hi there,

Below is a script I wrote for a previous question which can be enforced via a login script. You can modfy for the possible screen sizes and assign the required wallpaper.

It used WMI to detect the screen size (same as link provided by NarendraG) and then assigns the require jpg in the registry, then updates the wallpaper.

You just need to change the Select/Case section for your possible sizes and jpgs.

Tony



Set objWMIService = GetObject("Winmgmts:\\.\root\cimv2") 
Set objSh = CreateObject("Wscript.Shell")
Set colItems = objWMIService.ExecQuery("Select * From Win32_DesktopMonitor where DeviceID = 'DesktopMonitor1'",,0) 
For Each objItem in colItems 
    intHorizontal = objItem.ScreenWidth 
    intVertical = objItem.ScreenHeight 
Next

strResolution = CStr(intHorizontal) & " x " & CStr(intVertical)

Select Case strResolution
Case "1600 x 1200"
	strWallpaperPath = "\\nsanas\applications\tony.bmp"
Case "1024 x 768"
	strWallpaperPath = "\\server\share\wall1024x768.bmp"
Case "1280 x 800"
	strWallpaperPath = "\\server\share\wall1280x800.bmp"
Case "1280 x 1024"
	strWallpaperPath = "\\server\share\wall1280x1024.bmp"
Case Else
End Select

'Set the reg value
objSh.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", strWallpaperPath, "REG_SZ"

'Apply the change
objSh.Run "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 0, False

Open in new window

0
 
uaeabudhabi77Author Commented:
I am trying to define a wallpaper based on screen resultion, I dont want to define screen resolution since I have defferent types and sizes of screens
0
 
NarendraGCommented:
i dont this you can do it with gpo

may be script can help you

reference

http://www.experts-exchange.com/OS/Microsoft_Operating_Systems/Windows/XP/Q_23919390.html
0
 
Brasil-Ponto-ComCommented:
Hi guys,
I used this script but had the following problem:

Invalid use of Null: 'Cstr'

Please, help me.
Thanks
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.