none
Trocando o papel de parede usando script RRS feed

  • Pergunta

  • Hi friends !

    Ok, criei um script para trocar o papel de parede, porém, ele não consegue atualizar automaticamente. Vocês podem ver no código que tentei ativar o objeto desktop e fazer um refresh, mas não funcionou. Alguém poderia me ajudar com este tema ?

    Abaixo o código:

    'On Error Resume Next
    dim oShell
    dim oFSO
    dim sWinDir
    dim sWallPaper
    Dim strCopyFile, strCopyTo, objCopyFile

    'Set enviroment variables

    Set oShell = CreateObject("WScript.Shell")
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    strDesktop = oShell.SpecialFolders("Desktop")

     

    sWinDir = oFSO.GetSpecialFolder(0)
    sWallPaper = sWinDir & "\" & "Symrise1024x768.jpg"

    If Not oFSO.FileExists(sWallPaper) Then

         strCopyFile = "\\10.249.36.16\scripts\Symrise1024x768.bmp"
         strCopyTo = sWinDir
         wscript.echo strCopyFile
         wscript.echo strcopyTo
         oFSO.CopyFile strCopyFile, strCopyTo, True

    End If

    ' update in registry
    oShell.RegWrite "HKEY_CURRENT_USER\Control Panel\Desktop\Wallpaper",sWallPaper,"REG_SZ"

    ' let the system know about the change

    oShell.Run "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True

    oShell.AppActivate strDesktop
    oShell.SendKeys "{F5}"

    Abraços,

     

    Paulão.

     

    sexta-feira, 6 de outubro de 2006 14:11

Respostas

  • Paulo não seria mais facil fazer isso atráves de GPO e ainda por cima bloquear para o usuario não trocar depois?
    • Sugerido como Resposta Alex Blumer sábado, 20 de agosto de 2011 18:17
    • Marcado como Resposta Fábio JrModerator quinta-feira, 12 de janeiro de 2012 11:53
    quarta-feira, 11 de outubro de 2006 16:14

Todas as Respostas

  • Paulo não seria mais facil fazer isso atráves de GPO e ainda por cima bloquear para o usuario não trocar depois?
    • Sugerido como Resposta Alex Blumer sábado, 20 de agosto de 2011 18:17
    • Marcado como Resposta Fábio JrModerator quinta-feira, 12 de janeiro de 2012 11:53
    quarta-feira, 11 de outubro de 2006 16:14
  • Boa tarde.

    Eu já tenho isso funcionando com GPO.

    O que eu queria fazer é diferente... como posso deixar livre para o usuário alterar a vontade... porém toda vez que o mesmo fizer login volta o original da GPO.

     

    Obrigado

    sábado, 20 de agosto de 2011 18:18
  • Alex, use o Bginfo, eu utilizo da mesma forma que você esta querendo...

     

    Abraços

     


    Edson Matias Fagundes Junior - (Nioks)
    MCP, MCTS: 2008, MCTS:MBS
    Se a resposta for valida por favor vote como útil.
    segunda-feira, 22 de agosto de 2011 11:54