смена обоев на всех доменных машинах [Версия для КПК]

Показать полную графическую версию : смена обоев на всех доменных машинах

n978143

06-03-2008, 17:07

Как сделать используя AD смену фоновых обоев на всех машинах в домене?

Хочу к восьмому марта сменить обои на картинку с поздравлением :)

пришел к выводу что:
Самое правильное - не заниматься фигнёй, а использовать старый добрый метод - цветы и шампанское. Если женщин много - разослать поздравительные письма, причем именные, а не рассылкой. Использование обезличенного поздравления - тоже самое, что выйти на площадь и лозунги поорать. Кроме того, если у кого-то из женщин (да и мужиков) стоят свои обои, которые будут удалены твоим "поздравлением", люди обидятся.

а т.к. почтового сервера у меня пока нет, поэтому лично я - в групповой политике - в административных шаблонах - системе - вход в систему -> прописал скрипт на запуск "поздравлялки"

exray

06-03-2008, 17:13

Конфигурация пользователя - Административные шаблоны - Рабочий стол. вроде там, точно не помню.

n978143

06-03-2008, 17:28

народ а какие еще есть способы поздравить женский коллектив используя AD, прокси, почту

n978143

06-03-2008, 17:46

лично я - в групповой политике - в административных шаблонах - системе - вход в систему -> прописал скрипт на запуск "поздравлялки"

xax_nv

05-03-2009, 08:28

Вновь приближается 8 Марта, и тема опять актуальна. А можно првести текст скрипта? И подробней саму технологию.

artem_

05-03-2009, 11:25

8M.VBS

Set WshNetwork = CreateObject("WScript.Network")
MsgBox "Пряздрявляю Вас " & WshNetwork.UserName & " c 8 марта!!!" & VbCrLf & "Ваш злой Admin"

xax_nv

05-03-2009, 12:27

Хочу к восьмому марта сменить обои на картинку с поздравлением »
А как все же сменить обои? Поздравление через MsgBox как то не солидно. Или запустить IE со страничкой-поздравлялкой?

artem_

05-03-2009, 14:36

Конфигурация пользователя - Админ шаблоны - Рабочий стол - Рисунок рабочего стола Active desktop

если у кого-то из женщин (да и мужиков) стоят свои обои, которые будут удалены твоим "поздравлением", люди обидятся. »
- вот это првильный ход мысли. Задолбетесь потом ихних кошочек и собачек искать. Похерите весь праздник - особо нервным.

Если уж вам не нравится msgbox ом поздравлять - лучше тогда запустить какую то страничку.

А вот как это?

If Not Left(Date(), 2) = "06" then
WScript.Quit()
End if
Set WshNetwork = CreateObject("WScript.Network")
MsgBox "Дорогая " & WshNetwork.UserName &"!!! " & VbCrLf _
& "Любимая компания поздравляет Вас c 8 Марта!!!" & VbCrLf _
& ""& vbCrLf _
& "----------------------------------8888----------------------------"& vbCrLf _
& "-------------------------------88------88-------------------------"& vbCrLf _
& "------------------------------88--------88------------------------"& vbCrLf _
& "---------------------------------88--88---------------------------"& vbCrLf _
& "-----------------------------------888----------------------------"& vbCrLf _
& "-------------------------------88------88-------------------------"& vbCrLf _
& "-----------------------------88----------88-----------------------"& vbCrLf _
& "-----------------------------88----------88-----------------------"& vbCrLf _
& "-------------------------------88------88-------------------------"& vbCrLf _
& "-----------------------------------888----------------------------"& vbCrLf _
& "-888--------888------8888----8888888---888888888----8888"& vbCrLf _
& "-88-88---88-88----88----88--88-----88-------88--------88-----88"& vbCrLf _
& "-88-88---88-88----8888888--8888888-------88--------88888888"& vbCrLf _
& "-88---888----88---88-----88--88--------------88--------88------88"& vbCrLf _

Посмотрел на тему и сварганил за пол часа - картинку вытянул из нета - гугл рулит.