none
Trocar papel de parede de acordo com data programada RRS feed

  • Pergunta

  •  Pessoal,

    Preciso de um script para colocar em uma schedule Task do Win2008r2 para seguinte situação. No net logon tenho vários modelos de wallpaper e preciso que entre em uma determinada data um wallpaper promocional, ou seja ele pegará o arquivo atual definido como wallpaper.jpg renomeará para wallpaper_data.jpg e pegará o wallpaper promocional "wallpaper_natal.jpg" e renomeará para "wallpaper.jpg" para ser exibido no domínio.

    Qual situação seria melhor um script para cada arquivo e uma task para executar nas datas programadas ou um que faria todos os testes possíveis para cada data.

    Poderiam me ajudar com um exemplo?

    Obrigado...

    sábado, 19 de maio de 2012 16:11

Respostas

  • Boa noite Deyvid,

    segue um script que pode te ajudar, no caso fiz com o nome que você indicou esse VBS  renomear o arquivo da pasta "wallpaper promocional" para a pasta "wallpaper padrão" mas antes ele verifica se os "wallpaper.jpg" e "wallpaper_natal.jpg" existe caso algum deles não exista o script é encerrado.

    faça o teste e veja se é util...

    falow

    Dim Objfundo
    set objfundo = createobject("scripting.FileSystemObject")
    '####  definição do Papel
    FundoPadrao ="wallpaper.jpg"
    FundoPromo = "wallpaper_Natal.jpg"
    '#### Verifica se o papel padrão existe
    if objfundo.FileExists ("C:\Plano de fundo\Papel de Parede\wallpaper padrão\"& FundoPadrao &"") = false then
    	wscript.echo "O Arquivo (" & FundoPadrao & ") não existe"
    		wscript.quit
    end if
    '#### Verifica o papel promocional existe
     if objfundo.FileExists ("C:\Plano de fundo\Papel de Parede\wallpaper promocional\"& FundoPromo &"") = false then
    	wscript.echo "O Arquivo (" & FundoPromo & ") não existe"
    		wscript.quit
     end if
    '#### Renomeia papel padrão...
    Set fileobject = objfundo.GetFile("C:\Plano de fundo\Papel de Parede\wallpaper padrão\"& FundoPadrao &"")
    fileobject.Name = "wallpaper_"& day(now) &"_"& month(now) &"_"& year(now) &".jpg"
    '#### Renomeia papel promocional para o Padrão
    Set fileobject = objfundo.GetFile("C:\Plano de fundo\Papel de Parede\wallpaper promocional\"& FundoPromo &"")
    fileobject.Name = FundoPadrao
    '#### Move para pasta destino
    objfundo.MoveFile "C:\Plano de fundo\Papel de Parede\wallpaper promocional\"& FundoPadrao &"","C:\Plano de fundo\Papel de Parede\wallpaper padrão\"
    set objfundo = nothing
    



    domingo, 20 de maio de 2012 23:49

Todas as Respostas

  • Boa noite Deyvid,

    segue um script que pode te ajudar, no caso fiz com o nome que você indicou esse VBS  renomear o arquivo da pasta "wallpaper promocional" para a pasta "wallpaper padrão" mas antes ele verifica se os "wallpaper.jpg" e "wallpaper_natal.jpg" existe caso algum deles não exista o script é encerrado.

    faça o teste e veja se é util...

    falow

    Dim Objfundo
    set objfundo = createobject("scripting.FileSystemObject")
    '####  definição do Papel
    FundoPadrao ="wallpaper.jpg"
    FundoPromo = "wallpaper_Natal.jpg"
    '#### Verifica se o papel padrão existe
    if objfundo.FileExists ("C:\Plano de fundo\Papel de Parede\wallpaper padrão\"& FundoPadrao &"") = false then
    	wscript.echo "O Arquivo (" & FundoPadrao & ") não existe"
    		wscript.quit
    end if
    '#### Verifica o papel promocional existe
     if objfundo.FileExists ("C:\Plano de fundo\Papel de Parede\wallpaper promocional\"& FundoPromo &"") = false then
    	wscript.echo "O Arquivo (" & FundoPromo & ") não existe"
    		wscript.quit
     end if
    '#### Renomeia papel padrão...
    Set fileobject = objfundo.GetFile("C:\Plano de fundo\Papel de Parede\wallpaper padrão\"& FundoPadrao &"")
    fileobject.Name = "wallpaper_"& day(now) &"_"& month(now) &"_"& year(now) &".jpg"
    '#### Renomeia papel promocional para o Padrão
    Set fileobject = objfundo.GetFile("C:\Plano de fundo\Papel de Parede\wallpaper promocional\"& FundoPromo &"")
    fileobject.Name = FundoPadrao
    '#### Move para pasta destino
    objfundo.MoveFile "C:\Plano de fundo\Papel de Parede\wallpaper promocional\"& FundoPadrao &"","C:\Plano de fundo\Papel de Parede\wallpaper padrão\"
    set objfundo = nothing
    



    domingo, 20 de maio de 2012 23:49

  • Aparecido Deveza
    , muito obrigado pelo script, acredito que vai funcionar perfeitamente, vou fazer um teste e te retorno com o resultado. Valew mesmo pelo atendimento.

    Att...Deyvid Aciprest

    segunda-feira, 21 de maio de 2012 12:38