none
VBS para Wallpaper, tem como? RRS feed

  • Pergunta

  • Existe como setar papel de parede pelo script de logon? Eu sei que tem como fazer isso via GPO, é que fiquei curioro sobre isso.
    Se existe por favor como fazer?

    Obrigado
    terça-feira, 25 de agosto de 2009 15:16

Respostas

  • Olá,

    Somente com as linhas abaixo já altera:

    Set WshShell = WScript.CreateObject("Wscript.Shell")
    strImg = "c:\imagem.bmp"
    WshShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper",strImg



    Até mais,

    Jesiel

    Obs.: Se útil, classifique

    terça-feira, 25 de agosto de 2009 16:22
  • Olá,

    Faça conforme o exemplo abaixo:


    Set WshShell = WScript.CreateObject("Wscript.Shell")
    Set objFSO = CreateObject("Scripting.FileSystemObject")


    strImg = "c:\imagem.bmp"

    strOrigem = "\\srv1\imagem\imagem.bmp"


    if objFSO.fileexists(strImg) = false Then
        objFSO.Copyfile strOrigem,strImg,True
    End if


    WshShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper",strImg

    Faça os testes e nos retorne.


    Até mais,

    Jesiel

    Obs.: Se útil, classifique


    sexta-feira, 4 de setembro de 2009 14:01

Todas as Respostas

  • Reynaldo,

                    Tente o script abaixo;


    Set WshShell = WScript.CreateObject("Wscript.Shell")

    WshShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper","Caminho da imagem"

    WshShell.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Desktop\General\BackUpWallpaper", "Caminho da imagem"

    WshShell.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Desktop\General\Wallpaper", "Caminho da imagem"

    WshShell.SendKeys "{F5}"s



    Se útil, classifique.
    Leonardo Sousa
    terça-feira, 25 de agosto de 2009 15:38
  • Olá,

    Somente com as linhas abaixo já altera:

    Set WshShell = WScript.CreateObject("Wscript.Shell")
    strImg = "c:\imagem.bmp"
    WshShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper",strImg



    Até mais,

    Jesiel

    Obs.: Se útil, classifique

    terça-feira, 25 de agosto de 2009 16:22
  • Gente só uma curiosidade,

    Na linha strImg = "C:\seila.bmp" pode ser caminho de rede?
    Exemplo:

    strImg = "\\Server\Seila.bmp"


    Aguardo resposta.


    Obrigado
    terça-feira, 25 de agosto de 2009 18:27
  • Pode, pq deu algum erro?
    Leonardo Sousa
    terça-feira, 25 de agosto de 2009 18:39
  • Cara estranho parecia ter funcionado, mas depois de reiniciar não funcionou.

    Tipo não da error nem nada, simplismente não muda o papel de parede. Fica o mesmo que setei. Tanto no Vista quanto no XP.
    Tipo tentei por caminho de rede (pasta estava compartilhada) e tentei local deixando a imagem na maquina de teste.



    Tem algo que possa fazer? Ou estou fazendo algo errado?
    terça-feira, 25 de agosto de 2009 18:46
  • Olá,

    Você esta com um usuário administrador local???

    Porque como faz uma alteração no registro, o usuário precisa ter permissão para alterar o reg.

    Até mais,

    Jesiel

    Obs.: Se útil, classifique


    terça-feira, 25 de agosto de 2009 19:04
  • Jesiel,

    Sim o user está como administrador local.
    terça-feira, 25 de agosto de 2009 20:49
  • Crie uma GPO e vincule no OU dos usuários, faça o seguinte procedimento:
          1- click em INICIAR > EXECUTAR > digite DSA.MSC e click OK;
          2- Click com o botão direito sobre a OU onde estão os usuários e click em PROPRIEDADE;
          3- Click na guia DIRETIVA DE GRUPO e depois no botão NOVO, de um nome a GPO e Click em EDITAR;
          4- Após abrir a janela do GPEDIT click CONFIG DO USUÁRIO > MODELOS ADM > ÁREA DE TRABALHO > ACTIVE DESKTOP;
          5- Do lado direito de dois clicks em PAPEL DE PAREDE DO ACTIVE DESKTOP e marque ATIVADO e coloque o caminho da imagem e click OK;
          6- Entre na opção PERMITIR SOMENTE PAPEL DE PAREDE DE BITMAP e ative;
          7- Após teste no micro do usuário.


    Se útil, classifique.
    Leonardo Sousa
    quarta-feira, 26 de agosto de 2009 12:30
  • Jesiel,

    Tudo bom? Eu consegui resolver aqui, só queria saber se nesse script que vc me passou tem como colocar para se o arquivos que está dentro de C:\imagem.bmp não existir no computador ele copiar o arquivos do file server exemplo \\srv1\imagem\imagem.bmp

    Tem como?
    sexta-feira, 4 de setembro de 2009 13:23
  • Olá,

    Faça conforme o exemplo abaixo:


    Set WshShell = WScript.CreateObject("Wscript.Shell")
    Set objFSO = CreateObject("Scripting.FileSystemObject")


    strImg = "c:\imagem.bmp"

    strOrigem = "\\srv1\imagem\imagem.bmp"


    if objFSO.fileexists(strImg) = false Then
        objFSO.Copyfile strOrigem,strImg,True
    End if


    WshShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper",strImg

    Faça os testes e nos retorne.


    Até mais,

    Jesiel

    Obs.: Se útil, classifique


    sexta-feira, 4 de setembro de 2009 14:01
  • Existe alguma forma de eu rodar um tipo desses de scripts na maquina remotamente para que ele sse adeque a todo usuário
    quinta-feira, 17 de dezembro de 2009 20:53
  • Existe alguma forma de eu rodar um tipo desses de scripts na maquina remotamente para que ele sse adeque a todo usuário

    Emanuel, acredito que sim.

    Veja o utilitário do PSEXEC.
    http://technet.microsoft.com/en-us/sysinternals/bb897553.aspx

    Quanto a novas questões, por favor abre um novo tópico.

    Efetue os testes, poste os resultados e se util classifique!
    []s,

    " Qm tem boca vai a roma, meu fogão tem 6 e não saiu da cozinha ainda"
    sexta-feira, 18 de dezembro de 2009 10:46
  • Lembrando que para padronização de Wallpaper vc poderá utilizar a própria GPO

    Segue o link http://social.technet.microsoft.com/forums/pt-BR/winsrv2003pt/thread/62b301d6-eee0-401f-a689-8453f957648b/

    []s,

    " Qm tem boca vai a roma, meu fogão tem 6 e não saiu da cozinha ainda"
    sexta-feira, 18 de dezembro de 2009 10:48