none
Script para Mudar Papel de Parede pelo dia da semana RRS feed

  • Pergunta

  • Pessoal,

        Comecei a desenvolver um script que altera o papel de parede pelo dia da semana, mas nao estou conseguindo fazer funcionar, veja ai o que eu já consegui desenvolver e por favor me ajudem a concluir, pois já verifiquei todos os posts do tech e nada...

    Código

    On Error Resume Next
    strdiasemana = Weekday(now)
    Set WshShell = WScript.CreateObject("WScript.Shell")
    Select Case strdiasemana
        Case "0"
        WshShell.RegWrite "HKEY_USERS\.default\Control Panel\Desktop\Wallpaper", "\\server\Papel de Parede$\Manutencao.jpg" ,"REG_SZ"
        Case "1"
        WshShell.RegWrite "HKEY_USERS\.default\Control Panel\Desktop\Wallpaper", " \\server\Papel de Parede$\Manutencao.jpg" ,"REG_SZ"
        Case "2"
        WshShell.RegWrite "HKEY_USERS\.default\Control Panel\Desktop\Wallpaper", " \\server\Papel de Parede$\Artes Graficas.jpg" ,"REG_SZ"
        Case "3"
        WshShell.RegWrite "HKEY_USERS\.default\Control Panel\Desktop\Wallpaper", " \\server\Papel de Parede$\Manutencao.jpg" ,"REG_SZ"
        Case "4"
        WshShell.RegWrite "HKEY_USERS\.default\Control Panel\Desktop\Wallpaper", " \\server\Papel de Parede$\Artes Graficas.jpg" ,"REG_SZ"
        Case "5"
        WshShell.RegWrite "HKEY_USERS\.default\Control Panel\Desktop\Wallpaper", " \\server\Papel de Parede$\Manutencao.jpg" ,"REG_SZ"
        Case "6"
        WshShell.RegWrite "HKEY_USERS\.default\Control Panel\Desktop\Wallpaper", " \\server\Papel de Parede$\Artes Graficas.jpg" ,"REG_SZ" 
    End Select
    WshShell.Run "%windir%\System32\RUNDLL32.EXE " & "user32.dll,UpdatePerUserSystemParameters", 1, False
    Set WshShell = Nothing

    Quem conhece bem VB, favor me ajude a terminar esse script

    Obrigado, desde já...


    Fernando Lucas de Oliveira Farias
    Graduando em Ciência da Computação - UFS
    Téc. Desenvolvimento de Sistemas - IFS
    sábado, 17 de outubro de 2009 03:30

Respostas

  • Olá,

    Tente alterar o registro conforme o exemplo abaixo:

    Antes:
    "HKEY_USERS\.default\Control Panel\Desktop\Wallpaper", "\\server\Papel de Parede$\Manutencao.jpg"

    Depois

    "HKCU\Control Panel\Desktop\Wallpaper","\\server\Papel de Parede$\Manutencao.bmp"

    Cuidado pois você está deixando um espaço no "\\server"

    Tente utilizar bmp.

    Ou habilite o active desktop.



    Até mais,

    Jesiel

    Obs.: Se útil, classifique



    • Marcado como Resposta Fernando Lucas sábado, 24 de outubro de 2009 18:00
    domingo, 18 de outubro de 2009 00:35

Todas as Respostas

  • Olá,

    Tente alterar o registro conforme o exemplo abaixo:

    Antes:
    "HKEY_USERS\.default\Control Panel\Desktop\Wallpaper", "\\server\Papel de Parede$\Manutencao.jpg"

    Depois

    "HKCU\Control Panel\Desktop\Wallpaper","\\server\Papel de Parede$\Manutencao.bmp"

    Cuidado pois você está deixando um espaço no "\\server"

    Tente utilizar bmp.

    Ou habilite o active desktop.



    Até mais,

    Jesiel

    Obs.: Se útil, classifique



    • Marcado como Resposta Fernando Lucas sábado, 24 de outubro de 2009 18:00
    domingo, 18 de outubro de 2009 00:35
  • vlw Jesiel,

    mas quando aplico o script o wallpaper é definido mas nao é exibido no desktop, entaum tentei executá-lo com o Active Desktop Ativado e persisitiu o problema, entaum executei  o mesmo com o Active Desktop desativado e nada. O que eu gostaria de saber precisamente é qual propriedade eu devo modificar na GPO para que esse script funcione corretamente. Mas a lógica dos dias da semana aparentemente está funcionando...
    domingo, 18 de outubro de 2009 20:26
  • Olá,

    Tente usar uma imagem .bmp


    Até mais,

    Jesiel

    Obs.: Se útil, classifique


    segunda-feira, 19 de outubro de 2009 11:43
  • Vai ai uma dica.... o registro tem que ser processado para que o papel de parede apareça.. então ao inves de fazer o script no logon, faça um dia antes no logoff ou programe um horário que ele seja executado pelo task scheduler. assim no proximo logon do usuário vai aparecer o papel de parede que voce quer. Estou fazendo isso hoje pra amanha, 1º de abril todo mundo pensar que a rede foi hackeada e perderam todos os dados! huahua! PS a empresa é minha, jamais faria isso se estivesse trabalhando para alguem que não me desse este tipo de liberdade...
    • Sugerido como Resposta Felipe Fiad domingo, 12 de dezembro de 2010 16:17
    quarta-feira, 31 de março de 2010 19:51