none
Plano de Fundo - Desktop RRS feed

  • 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

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

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

    quarta-feira, 22 de fevereiro de 2012 19:40
  • 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

  • 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
  • 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