Tip: Как поменять обои на рабочем столе с помощью скрипта
|
|
|
Понедельник, 17 Июль 2006 | (8493)
В многих учебных заведениях на начальных курсах абитуриентов обучают азам компьютерной грамотности: ну там обои (Wallpapers) на рабочем столе (desktop) поменять, время перевести, вход, выход, копирование файлов, и т д). Для таких целей очень часто учетную запись на каждого абитуриента не заводят (большая текучка народа). И вот после уроков часто стандартные обои меняются на такие, что огого (сначала рисуют в mspaint что-то, а потом ЭТО ставят на рабочий стол). Обошли такую штуку очень просто, поставили в логон скрипт (logon script)запуск скрипта, который меняет обои на те, которые нам надо.
Текст скрипта Wallpaper.vbs:
|
Dim WshShell, oArgs
Set WshShell = WScript.CreateObject("Wscript.Shell")
set oArgs=wscript.arguments
If oArgs.Count > 0 Then
WshShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", """" & oArgs(0) & """"
WshShell.Run "%windir%\System32\RUNDLL32.EXE user32.dll, UpdatePerUserSystemParameters", 1, False
Else
Wscript.Echo "Syntax: CSCRIPT //NOLOGO C:\UTIL\Wallpaper.vbs ""C:\Windows\Wallpaper.bmp"""
End If
Set WshShell = Nothing |
Формат запуска
CSCRIPT //NOLOGO C:\Folder\Wallpaper.vbs "C:\Windows\Wallpaper.bmp"
Где C:\Folder\Wallpaper.vbs это полный путь к скрипту Wallpaper.vbs, и "C:\Windows\Wallpaper.bmp" полный путь к файлу-картинке, которую Вы собрались поместить на рабочий стол
|
Комментарии
2009-03-0512:36:25 не работает! меняет фон не на картинку а на однотонный фон просто ..
2007-12-2105:30:12 Лучше используйте прогу для работы с dll dll.izcity.com/ можно с помощью таких программ сделать
2006-09-2816:42:58 5. В продолжение к предыдущему. Смайлы пропадают только в путь (мож их кушает хто?). И если с запятой после :) ещё понятно, то как быть с финальным :D ???
:D
2006-09-2816:36:59 3. Окошко добавления комментария можно наверное чуть-чуть растянуть т.к. 5х43=215 символов (раза в 4, справа от него вполне достаточно свободного места, а если ещё вверх и вниз потянуть... Смайлы убрать вправо от имени, код с кнопкой "отправить" - тоже вправо :D ).
4. Буквально недавно читал статью Invalid User ru.n-admin.com/.../ (где лист по бокам при печати залит чёрной краской), так вот вопрос знатокам: :?
У меня на мониторе 17" 1024х768 слева и справа чёрные полосы шириной по 3см :), может что с монитором не так? :D
2006-09-2816:35:40 Пожелания:
1. Copy&Paste - чуднО как-то работает, почему нельзя делать это посимвольно, а можно только целым блоком? Копировать блок, а потом вырезать из него ненужное по-моему корявое решение.
2. Автотранслит выключен, пишет, что осталось 360 символов, но отправить пост не может, формулировку не помню, что-то вроде "слишком длинный комментарий".
Продолжение следует...
2006-07-2112:47:56 Для меня - да :-)
P.S. Регистрация пришла только на следующий день и в Unicode. Через WebMail нечитаемая ...
P.P.S. Когда я уже зарегестрировался сслыка в углу "Login" напрягает. Пусть уж будет "Logout" или регистрационное имя.
P.P.S. Асайт не запоминает, что я люболю "на весь экран"? Это он зря ...
2006-07-2012:59:56 2Прохожий: так лучше?
2006-07-1915:21:13 Цитирую Прохожий: Так еще и символы глотаем... (нижепреведенный кусок кода был нагло откушен :-)
Я когда-то просил о всех пожеланиях писать :)
Сейчас я эти пожелания уже вижу :)
Постараемся исправить ;)
2006-07-1817:35:52 Так еще и символы глотаем... (нижепреведенный кусок кода был нагло откушен :-)
2006-07-1817:35:24 Ууууу .... Ребята, мало того что интерфейс вашего сайта не дает сделать Cut & Paste (А ДЛЯ ТЕХ КТО ПИШЕТ КОД ЭТО НЕОБХОДИМО). Мало того что комментарий маленький. Мало того что хронологическая последовательность коментариев наоборот (читаешь сначала ответ, потом вопрос).