смена обоев на всех доменных машинах

exray · Отправлено: **17:13, 06-03-2008** | #2

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

n978143 · Отправлено: **17:28, 06-03-2008** | #3

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

n978143 · Отправлено: **17:46, 06-03-2008** | #4

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

xax_nv · Отправлено: **08:28, 05-03-2009** | #5

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

artem_ · Отправлено: **11:25, 05-03-2009** | #6

8M.VBS

Код:

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

xax_nv · Отправлено: **12:27, 05-03-2009** | #7

Цитата n978143:

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

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

artem_ · Отправлено: **14:36, 05-03-2009** | #8

Конфигурация пользователя - Админ шаблоны - Рабочий стол - Рисунок рабочего стола 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 _

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