Usuário com melhor resposta
Trocar Papel de Parede (wallpaper) via script VBS (NAO GPO)

Pergunta
-
Ola a todos os amigos do forun
venho aqui perguntar como faço para trocar o wallpaper das estações por script
eu sei que daqui a pouco vai vir alguem aqui e vai falar assim, olha por GPO é mais facil
mas eu estou tendo problemas via GPO, eu já setei as GPO mas mesmo assim eu não consigo
tenho certeza que as GPO estao sendo aplicadas, mas nao da certo, o usuario fica sem nenhum papel de parede.
Eu uso Win 2008 server e as estações estão conectadas ao servidor por TS as estações são ThinStations.
Se alguem quiser ajudar fico grato.
Obrigado
Respostas
-
Tente utilizar o bginfo....Com ele vc gera um arquivo de configuração do tipo bgi e depois pode chamá-lo via script pela GPO, por exemplo salvando o código abaixo como .vbs.
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run "\\server\share\bginfo.exe \\server\share\WallBg.bgi /timer:5 /silent /nolicprompt",hiddenSobre a GPO, verifique se é isso q vc está fazendo.
Para adicionar um papel de parede direto via vbs é esse o script.
Set oShell = CreateObject("WScript.Shell")
sWallPaper = "\\server\share\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, TrueSe for útil vote e qualquer dúvida poste.
Gabriel Nascimento MCP / MCSA / CCNA Não esqueça de contribuir para organização dos fóruns - Classifique as respostas- Marcado como Resposta Diego F. Luisi segunda-feira, 26 de abril de 2010 13:58
Todas as Respostas
-
Tente utilizar o bginfo....Com ele vc gera um arquivo de configuração do tipo bgi e depois pode chamá-lo via script pela GPO, por exemplo salvando o código abaixo como .vbs.
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run "\\server\share\bginfo.exe \\server\share\WallBg.bgi /timer:5 /silent /nolicprompt",hiddenSobre a GPO, verifique se é isso q vc está fazendo.
Para adicionar um papel de parede direto via vbs é esse o script.
Set oShell = CreateObject("WScript.Shell")
sWallPaper = "\\server\share\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, TrueSe for útil vote e qualquer dúvida poste.
Gabriel Nascimento MCP / MCSA / CCNA Não esqueça de contribuir para organização dos fóruns - Classifique as respostas- Marcado como Resposta Diego F. Luisi segunda-feira, 26 de abril de 2010 13:58
-
-
Pra funcionar vc precisa dar permissão para os usuários alterarem essa chave.
Você pode fazer isso através de GPO.
Configuração de Computador -> Configurações do Windows-> Configurações de Segurança, botão direito em registry e "ADD", adicione a chave que você especificou e dê permissão para o grupo domain users.
Abraço.
Gabriel Nascimento MCP / MCSA / CCNA Não esqueça de contribuir para organização dos fóruns - Classifique as respostas -
se eu estiver logado como usuario comum e clicar com o botao direito em cima de uma img e definir como plano de fundo ela vai.
mas via GPO ou SCRIPT eu não estou conseguindo
eu nao sei como eu vou dar permissão pra essa chave, pq vc viu ele nao mostra o nome do usuario e sim um numero...
obrigado pela tentativa
-
Esse script que te passei não funcionou?
Set oShell = CreateObject("WScript.Shell")
'Substitua pelo caminho onde está a imagem
sWallPaper = "\\server\share\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, TruePor que isso altera essa Reg que vc disse.
Abraço.
Gabriel Nascimento MCP / MCSA / CCNA Não esqueça de contribuir para organização dos fóruns - Classifique as respostas- Sugerido como Resposta Jesiel S. Pereira segunda-feira, 26 de abril de 2010 11:32
-
-
Olá,
Os usuários tem permissão para acessar este arquivo na rede?
O Script sugerido pelo Gabriel está correto. Talvez seja interessante você baixar o ProcessMon e verificar as permissões dos arquivos/registros acessados.
Download:
http://technet.microsoft.com/en-us/sysinternals/bb896645.aspx
Até mais,
Jesiel
Obs.: Se útil, classifique
-
Ola,
Eu notei algo estranho hoje em relação à aplicação do wallpaper, Quando a pessoa faz o login na maquina ele não aparece o wallpaper, fica uma tela azul sem nenhum wallpaper, mas quando ela fecha a sessão (se desconecta) e entra de novo o wallpaper é exibido normalmente, mas se ela fizer logoff e entrar novamente não aparece, só aparece se ela desconectar e conectar novamente.
-
Ola,
Eu notei algo estranho hoje em relação à aplicação do wallpaper, Quando a pessoa faz o login na maquina ele não aparece o wallpaper, fica uma tela azul sem nenhum wallpaper, mas quando ela fecha a sessão (se desconecta) e entra de novo o wallpaper é exibido normalmente, mas se ela fizer logoff e entrar novamente não aparece, só aparece se ela desconectar e conectar novamente.
Boa Tarde,Alguem por favor poderia me ajudar eu estou com um serio problema tenho algumas maquinas que nao pegao o plano de fundo nem querendo
este script que esta a cima sera que resolve o problema uma vez nem todos os usuario tem acesso registro da maquina como vou fazer para resolver este problema .
tem um script que copia o papel para a raiz da maquina.
Abraços almeida
-
-
-
-
-
-
Mas creio que nao esta funcionando corretamente mas sendo assim nao posso ficar esperando a boa vontade do meu gerente ou outra pessoa que entenda de AD para sanar este problema se alguem tiver um script que resolva este problema agradeço muito mesmo.
Obrigado
-
-
-
-
-
como faça para usar este scrip
Set oShell = CreateObject("WScript.Shell")
sWallPaper = "\\server\share\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, TrueO local onde esta o meu arquivo e
-
-
-
-
-
-
-
Diego,
Bom Dia !
tive um problema desse em que somente no login/logof que aparecia a wallpaper, mas quando o user se logava não aparecia mais, observando a imagem de wallpaper está no fundo, tentamos de tudo. Esta aplicado na GPO, fizemos o seguinte:
- em \\ip-server\sysvol\domínio\policies\nome gpo\ (abra e procure a GPO de wallpaper, depois mova pra outro lugar)
- refaça a GPO e dê gpupdate /force
- logue novamente na estação e a wallpaper sobe.
Deu certo aqui!
Abs
Mottoca
Eduardo Mottoc@