none
Plano de Fundo - Desktop RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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

    quinta-feira, 12 de agosto de 2010 12:34
    |

Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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

    quarta-feira, 22 de fevereiro de 2012 19:40
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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

    quinta-feira, 23 de fevereiro de 2012 10:46
    |

Todas as Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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

    quarta-feira, 22 de fevereiro de 2012 19:40
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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

    quinta-feira, 23 de fevereiro de 2012 10:46
    |