none
Mudança de Horário de Verão RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Galera,

               

               Tenho uma dúvida de como marcar a opção "Ajustar automática o relógio para Horário de Verão", via script.vbs, para replicar em todas as máquinas da rede.

    Obrigado

    Fabio Costa - RJ


    quarta-feira, 30 de outubro de 2013 17:47
    |

Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Fábio,

    Você precisar fazer uma alteração no registro da máquina.

    No link abaixo tem um exemplo em .VBS desta chave, basta colocar o script em uma GPO na diretiva de Logon.

    How to turn on auto adjust for daylight savings using a VBScript

    http://www.redmars.com.au/blog/itsupport/operatingsystems/xp/180

    Option Explicit
on error resume next

'Constants used to specify which hive to write to
Const HKEY_CLASSES_ROOT     = &H80000000
Const HKEY_CURRENT_USER     = &H80000001
Const HKEY_LOCAL_MACHINE    = &H80000002
Const HKEY_USERS        = &H80000003
Const HKEY_CURRENT_CONFIG   = &H80000005
'Constants used to specify write type
Const REG_SZ        = 1
Const REG_EXPAND_SZ = 2
Const REG_BINARY    = 3
Const REG_DWORD     = 4
Const REG_MULTI_SZ  = 7
Dim objReg

Const RegPath = "SYSTEM\CurrentControlSet\Control\TimeZoneInformation"
Dim strComputer
strComputer = "."

Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
objReg.DeleteValue HKEY_LOCAL_MACHINE,RegPath,"DisableAutoDaylightTimeSet"
objReg.DeleteValue HKEY_LOCAL_MACHINE,RegPath,"DynamicDaylightTimeDisabled"

    Fábio de Paula Junior

    quarta-feira, 30 de outubro de 2013 18:52
    |
    Moderador