none
Papel de parede RRS feed

  • Pergunta

  • Recentemente , Criei uma GPO para aplicar papel de parede na area de trabalho dos usuario (Estações com windows 7),  gostaria de saber se é possivel deixar de um jeito que carregue de maneira aleatória um papel de parede na area de trabalho deles. se da pra fazer isso com um script.

    Usamos windows server 2003 R2

    Att,

    Nagamine

    segunda-feira, 13 de fevereiro de 2012 16:42

Respostas

Todas as Respostas

  • Via GPO eu não conheço.

    Tente este software: http://david.acz.org/randombg/


    Fábio de Paula Junior

    • Sugerido como Resposta Fábio JrModerator quarta-feira, 15 de fevereiro de 2012 12:28
    • Marcado como Resposta Richard Juhasz sexta-feira, 17 de fevereiro de 2012 11:31
    segunda-feira, 13 de fevereiro de 2012 19:15
    Moderador
  • Testou?

    Fábio de Paula Junior

    quarta-feira, 15 de fevereiro de 2012 19:12
    Moderador
  • Bom existe esse script que pode ser útil ...

    Dim WshShell
    Const HKEY_CURRENT_USER = &H80000001

    Set objReg = GetObject("winmgmts:\\.\root\default:StdRegProv")
    intLowNumber = 1
    intHighNumber = 6

    Randomize

    intNumber = Int((intHighNumber - intLowNumber + 1) * Rnd + intLowNumber)

    Select Case intNumber
        Case 1
           strValue = "C:\WINDOWS\System32\Wallpaper1.bmp"
            msgbox intNumber &  " => Wallpaper1"
       Case 2
           strValue = "C:\WINDOWS\System32\Wallpaper2.bmp"
            msgbox intNumber &  " => Wallpaper2"
       Case 3
           strValue = "C:\WINDOWS\System32\Wallpaper3.bmp"
            msgbox intNumber &  " => Wallpaper3"
       Case 4
           strValue = "C:\WINDOWS\System32\Wallpaper4.bmp"
            msgbox intNumber &  " => Wallpaper4"
       Case 5
           strValue = "C:\WINDOWS\System32\Wallpaper5.bmp"
           msgbox intNumber &  " => Wallpaper5"
       Case 6
           strValue = "C:\WINDOWS\System32\Wallpaper6.bmp"
           msgbox intNumber &  " => Wallpaper6"

    End Select

    strKeyPath = "Control Panel\Desktop"
    ValueName = "Wallpaper"
    objReg.SetStringValue HKEY_USERS, strKeyPath, ValueName, strValue

    Set WshShell = WScript.CreateObject("Wscript.Shell")
    WshShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", strValue
    WshShell.Run "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True
    Set WshShell = Nothing
    Este script é originalmente é : http://blogs.technet.com/b/heyscriptingguy/archive/2007/01/18/how-can-i-change-the-desktop-wallpaper-to-one-of-six-predefined-selections.aspx

    sexta-feira, 24 de fevereiro de 2012 01:34