Usuário com melhor resposta
Plano de Fundo - Desktop

Pergunta
-
Bom dia Amigos,
Estou precisando de um script que set um plano de fundo na desktop. Eu poderia fazer isto atraves de GPO mas ocorre que os Alunos da escola realizam exercicios nas estações e podem alterar o plano de fundo. Meu objetivo é criar um script de logon para que ele set o plano de fundo padrão em cada reinicialização.
Atenciosamente,
Fabricio Cavalheiro
Respostas
-
Fabrício,
Vê se essa vbs serve para você. Ela me atende bem e é bem simples e funcional. Apenas altere a linha "C:\windows\imagem.bmp" para o local de sua imagem.
Set oShell = CreateObject("WScript.Shell")
sWallPaper = "C:\windows\imagem.bmp"
' update in registry
oShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", sWallPaper
' let the system know about the change
oShell.Run "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True- Sugerido como Resposta Fábio JrModerator quinta-feira, 23 de fevereiro de 2012 15:54
- Marcado como Resposta Fábio JrModerator segunda-feira, 27 de fevereiro de 2012 12:07
-
Eu uso este aqui na empresa:
strRegRoot = "HKEY_CURRENT_USER\Software\Microsoft\" & "Internet Explorer\Desktop\General\" strRegRoot2 = "HKEY_CURRENT_USER\Control Panel\Desktop\" Set Shell = WScript.CreateObject("Wscript.Shell") Shell.RegWrite strRegRoot & "BackUpWallpaper", "\\gtpc-fs14\prontoexpress\gtpc_wallpaper.bmp" Shell.RegWrite strRegRoot & "Wallpaper", "\\gtpc-fs14\prontoexpress\gtpc_wallpaper.bmp" Shell.RegWrite strRegRoot2 & "Wallpaper", "\\gtpc-fs14\prontoexpress\gtpc_wallpaper.bmp" Shell.RegWrite strRegRoot2 & "WallpaperStyle", "10" ' 10 = preenhcher / 0 = centro / 6 = lado a lado Shell.Run "%windir%\System32\RUNDLL32.EXE " & "user32.dll,UpdatePerUserSystemParameters", 1, False Set Shell = Nothing
Funciona em XP, Vista e 7.
Daniel Silva Analista de TI
- Sugerido como Resposta Fábio JrModerator quinta-feira, 23 de fevereiro de 2012 15:54
- Marcado como Resposta Fábio JrModerator segunda-feira, 27 de fevereiro de 2012 12:07
Todas as Respostas
-
Fabrício,
Vê se essa vbs serve para você. Ela me atende bem e é bem simples e funcional. Apenas altere a linha "C:\windows\imagem.bmp" para o local de sua imagem.
Set oShell = CreateObject("WScript.Shell")
sWallPaper = "C:\windows\imagem.bmp"
' update in registry
oShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", sWallPaper
' let the system know about the change
oShell.Run "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True- Sugerido como Resposta Fábio JrModerator quinta-feira, 23 de fevereiro de 2012 15:54
- Marcado como Resposta Fábio JrModerator segunda-feira, 27 de fevereiro de 2012 12:07
-
Eu uso este aqui na empresa:
strRegRoot = "HKEY_CURRENT_USER\Software\Microsoft\" & "Internet Explorer\Desktop\General\" strRegRoot2 = "HKEY_CURRENT_USER\Control Panel\Desktop\" Set Shell = WScript.CreateObject("Wscript.Shell") Shell.RegWrite strRegRoot & "BackUpWallpaper", "\\gtpc-fs14\prontoexpress\gtpc_wallpaper.bmp" Shell.RegWrite strRegRoot & "Wallpaper", "\\gtpc-fs14\prontoexpress\gtpc_wallpaper.bmp" Shell.RegWrite strRegRoot2 & "Wallpaper", "\\gtpc-fs14\prontoexpress\gtpc_wallpaper.bmp" Shell.RegWrite strRegRoot2 & "WallpaperStyle", "10" ' 10 = preenhcher / 0 = centro / 6 = lado a lado Shell.Run "%windir%\System32\RUNDLL32.EXE " & "user32.dll,UpdatePerUserSystemParameters", 1, False Set Shell = Nothing
Funciona em XP, Vista e 7.
Daniel Silva Analista de TI
- Sugerido como Resposta Fábio JrModerator quinta-feira, 23 de fevereiro de 2012 15:54
- Marcado como Resposta Fábio JrModerator segunda-feira, 27 de fevereiro de 2012 12:07