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

  • Pergunta

  • 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

  • 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