|
Компьютерный форум OSzone.net » Серверные продукты Microsoft » Windows Server 2008/2008 R2 » 2008 - установить обои рабочего стола для всех машин в домене через политики? |
|
2008 - установить обои рабочего стола для всех машин в домене через политики?
|
Пользователь Сообщения: 128 |
как через груповые политики установить можно на все компы в домене один рисунок?
|
|
------- Отправлено: 14:42, 01-09-2009 |
![]() Ветеран Сообщения: 862
|
Профиль | Сайт | Отправить PM | Цитировать God-of-Chaos, можете поступить так:
На сервере открыть "Редактор GPO инициирующей прграммы групповой политики", где выбираете в своем домене "Новый начальный объект групповой политики". Далее переходите в "Конфигурация пользователя" > "Административные шаблоны" > "Рабочий стол" > "Рабочий стол". Находите политику "Фоновые рисунки рабочего стола". Выбираете необходимый для вас рисунок и стиль фонового рисунка. После следующего логона у всех пользователей должены быть одинаковые обои. |
------- Отправлено: 10:01, 03-09-2009 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
![]() Ветеран Сообщения: 2089
|
Профиль | Отправить PM | Цитировать Уточнение.
Обои должны находится на сервере в расшаренной папке, доступ к папке должны иметь "Прошедшие проверку" на чтение. И соотсвественно, путь в политике выбирать через сеть, т.е. должен быть вида \\server\shared\walpapers\my.bmp |
------- Отправлено: 10:55, 08-09-2009 | #3 |
Новый участник Сообщения: 2
|
Профиль | Отправить PM | Цитировать Такого типа VBS скрипт отрабатывает у меня и ставит обои нужного разрешения:
strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery _ ("Select * From Win32_DisplayConfiguration") For Each objItem in colItems dim wshShell dim sUserName' ' --------- FOR 1920 x 1200 ------------- If objItem.PelsWidth="1920" AND objItem.PelsHeight="1200" then Set wshShell = WScript.CreateObject("WScript.Shell") sUserName = wshShell.ExpandEnvironmentStrings("%USERNAME%") Set oShell = CreateObject("WScript.Shell") Set oFSO = CreateObject("Scripting.FileSystemObject") sWinDir = oFSO.GetSpecialFolder(0) sWallPaper = "\\hyper\GP Soft\Wallpapers\New\logo_CMSO_1920-1200.bmp" oShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", sWallPaper oShell.Run "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True END IF ' --------- FOR 1280 x 1024 ------------- If objItem.PelsWidth="1280" AND objItem.PelsHeight="1024" then Set wshShell = WScript.CreateObject("WScript.Shell") sUserName = wshShell.ExpandEnvironmentStrings("%USERNAME%") Set oShell = CreateObject("WScript.Shell") Set oFSO = CreateObject("Scripting.FileSystemObject") sWinDir = oFSO.GetSpecialFolder(0) sWallPaper = "\\hyper\GP Soft\Wallpapers\New\logo_CMSO_1280-1024.bmp" oShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", sWallPaper oShell.Run "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True END IF ' --------- FOR 1280 x 800 ------------- If objItem.PelsWidth="1280" AND objItem.PelsHeight="800" then Set wshShell = WScript.CreateObject("WScript.Shell") sUserName = wshShell.ExpandEnvironmentStrings("%USERNAME%") Set oShell = CreateObject("WScript.Shell") Set oFSO = CreateObject("Scripting.FileSystemObject") sWinDir = oFSO.GetSpecialFolder(0) sWallPaper = "\\hyper\GP Soft\Wallpapers\New\logo_CMSO_1280-800.bmp" oShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", sWallPaper oShell.Run "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True END IF ' --------- FOR 1024 x 768 ------------- If objItem.PelsWidth="1024" AND objItem.PelsHeight="768" then Set wshShell = WScript.CreateObject("WScript.Shell") sUserName = wshShell.ExpandEnvironmentStrings("%USERNAME%") Set oShell = CreateObject("WScript.Shell") Set oFSO = CreateObject("Scripting.FileSystemObject") sWinDir = oFSO.GetSpecialFolder(0) sWallPaper = "\\hyper\GP Soft\Wallpapers\NEW\logo_CMSO_1024-768.bmp" oShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", sWallPaper oShell.Run "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True END IF ' --------- FOR 800 x 600 ------------- If objItem.PelsWidth="800" AND objItem.PelsHeight="600" then Set wshShell = WScript.CreateObject("WScript.Shell") sUserName = wshShell.ExpandEnvironmentStrings("%USERNAME%") Set oShell = CreateObject("WScript.Shell") Set oFSO = CreateObject("Scripting.FileSystemObject") sWinDir = oFSO.GetSpecialFolder(0) sWallPaper = "\\hyper\GP Soft\Wallpapers\Main\logo_CMSO_1280-1024.bmp" oShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", sWallPaper oShell.Run "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True END IF ' --------- FOR 1400 x 1050 ------------- If objItem.PelsWidth="1400" AND objItem.PelsHeight="1050" then Set wshShell = WScript.CreateObject("WScript.Shell") sUserName = wshShell.ExpandEnvironmentStrings("%USERNAME%") Set oShell = CreateObject("WScript.Shell") Set oFSO = CreateObject("Scripting.FileSystemObject") sWinDir = oFSO.GetSpecialFolder(0) sWallPaper = "\\hyper\GP Soft\Wallpapers\Main\logo_CMSO_1680-1050.bmp" oShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", sWallPaper oShell.Run "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True END IF ' --------- FOR 1680 x 1050 ------------- If objItem.PelsWidth="1680" AND objItem.PelsHeight="1050" then Set wshShell = WScript.CreateObject("WScript.Shell") sUserName = wshShell.ExpandEnvironmentStrings("%USERNAME%") Set oShell = CreateObject("WScript.Shell") Set oFSO = CreateObject("Scripting.FileSystemObject") sWinDir = oFSO.GetSpecialFolder(0) sWallPaper = "\\hyper\GP Soft\Wallpapers\New\logo_CMSO_1680-1050.bmp" oShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", sWallPaper oShell.Run "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True END IF Next |
Отправлено: 09:30, 27-01-2010 | #4 |
Ветеран Сообщения: 12417
|
Профиль | Отправить PM | Цитировать Доброго дня, а как настроить обои рабочего стола в 2008 R2? не могу никак найти в персонализации...
ппц... два пути: 1 - правый клик на картинке - set as desktop background. 2 - кидаем картинки в C:\Windows\Web\Wallpaper\Windows. После этого их можно выбирать в персонализации. |
|
------- Последний раз редактировалось exo, 12-05-2010 в 16:49. Отправлено: 14:20, 12-05-2010 | #5 |
Новый участник Сообщения: 20
|
Профиль | Отправить PM | Цитировать Привет! Скрипт сам по себе работает, но при моих 1680*1050 отрабатывает мне установку волпапера 1024*768
и где грабли понять не могу... |
Отправлено: 14:02, 24-05-2010 | #6 |
Новый участник Сообщения: 30
|
Профиль | Отправить PM | Цитировать у меня тоже ставит 1024*768
кто подскажет как заставить скрипт выбирать разрешение? нужно что бы работало на ХР и W7 |
Отправлено: 10:44, 25-06-2013 | #7 |
Ветеран Сообщения: 1594
|
Профиль | Отправить PM | Цитировать Держите рабочий конструктор
vbs, вызывать через cmd Ну и плюс надо "нафотошопить" обои под те разрешения мониторов, которые у вас есть. С именами файлов 800_600.bmp, 1024_768.bmp... |
------- Отправлено: 16:06, 01-07-2013 | #8 |
Новый участник Сообщения: 1
|
Профиль | Отправить PM | Цитировать Цитата James Marsh:
|
|
Отправлено: 00:05, 06-03-2014 | #9 |
Ветеран Сообщения: 1594
|
Профиль | Отправить PM | Цитировать Цитата sergsplinter:
vbs, вызывать через cmd » Сохранить как cmd и запихнуть в групповую политику. ПыСы В терминальных сессиях server 2008r2 / 2012 / 2012r2 вся конструкция пишет "Скажите системному администратору что файл _.bmp отсутствует!". Так и не разобрался чего. |
------- Отправлено: 22:49, 06-03-2014 | #10 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Установка - Видео обои для рабочего стола | Besea | Microsoft Windows Vista | 16 | 09-06-2010 18:26 | |
Управление темами рабочего стола через политики AD | mihadro | Microsoft Windows NT/2000/2003 | 7 | 09-08-2009 15:12 | |
Обои Windows 7 для рабочего стола | OSZone News | Новости и события Microsoft | 6 | 10-12-2008 10:57 | |
Обои для рабочего стола | ALI | Хочу все знать | 3 | 03-05-2003 16:07 |
|