| n978143 |
06-03-2008 17:07 754788 |
смена обоев на всех доменных машинах
Как сделать используя AD смену фоновых обоев на всех машинах в домене?
Хочу к восьмому марта сменить обои на картинку с поздравлением :)
пришел к выводу что:
Самое правильное - не заниматься фигнёй, а использовать старый добрый метод - цветы и шампанское. Если женщин много - разослать поздравительные письма, причем именные, а не рассылкой. Использование обезличенного поздравления - тоже самое, что выйти на площадь и лозунги поорать. Кроме того, если у кого-то из женщин (да и мужиков) стоят свои обои, которые будут удалены твоим "поздравлением", люди обидятся.
а т.к. почтового сервера у меня пока нет, поэтому лично я - в групповой политике - в административных шаблонах - системе - вход в систему -> прописал скрипт на запуск "поздравлялки"
|
Конфигурация пользователя - Административные шаблоны - Рабочий стол. вроде там, точно не помню.
|
| n978143 |
06-03-2008 17:28 754800 |
народ а какие еще есть способы поздравить женский коллектив используя AD, прокси, почту
|
| n978143 |
06-03-2008 17:46 754808 |
лично я - в групповой политике - в административных шаблонах - системе - вход в систему -> прописал скрипт на запуск "поздравлялки"
|
Вновь приближается 8 Марта, и тема опять актуальна. А можно првести текст скрипта? И подробней саму технологию.
|
8M.VBS
Код:
Set WshNetwork = CreateObject("WScript.Network")
MsgBox "Пряздрявляю Вас " & WshNetwork.UserName & " c 8 марта!!!" & VbCrLf & "Ваш злой Admin"
|
Цитата:
Цитата n978143
Хочу к восьмому марта сменить обои на картинку с поздравлением »
|
А как все же сменить обои? Поздравление через MsgBox как то не солидно. Или запустить IE со страничкой-поздравлялкой? |
Конфигурация пользователя - Админ шаблоны - Рабочий стол - Рисунок рабочего стола Active desktop
Цитата:
Цитата n978143
если у кого-то из женщин (да и мужиков) стоят свои обои, которые будут удалены твоим "поздравлением", люди обидятся. »
|
- вот это првильный ход мысли. Задолбетесь потом ихних кошочек и собачек искать. Похерите весь праздник - особо нервным.
Если уж вам не нравится 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 _
Посмотрел на тему и сварганил за пол часа - картинку вытянул из нета - гугл рулит. |
Время: 20:45.
© OSzone.net 2001-
