Bear39 Цитата: загрузке появились обои которые укажу я?
не бери плохой пример с некоторых индивидумов, вопрос занимает чуть ли не лидирующие позиции поиска. Добрался до власти, первым делом - меняем всем [more=обои!]On Error Resume Next
' имя файла обоев
FileName = "wallpaper.bmp"
Const OverwriteExisting = True
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("Wscript.Shell")
' заносим в Folder путь к папке профиля пользователя
Folder = WshShell.ExpandEnvironmentStrings("%UserProfile%")
' копируем обои на комп
objFSO.CopyFile "\\shares\" & FileName , Folder & "\", OverwriteExisting
' записываем в реестр имя файла обоев
WshShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", Folder & "\" & FileName
' ставим значение растянуть на весь экран
WshShell.RegWrite "HKCU\Control Panel\Desktop\WallpaperStyle", "2"
WshShell.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Desktop\General\BackUpWallpaper", Folder & "\" & FileName
WshShell.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Desktop\General\Wallpaper", Folder & "\" & FileName
' обновляем экран
WshShell.Run "%SystemRoot%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, False[/more] Шоб знали, хто в доме хозяин
Можно и через гпо, но поверь - так (через скрипт) - лучше.