Segue
um script o qual você pode salvar com a extensão .vbs e executar nas
estações para desmarcar a opção de horário de verão no Windows. Atente
para a penúltima linha que contém um comando de sincronização de
horário com o PDC emulator. Você deve alterar para o nome do seu
servidor.
Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\defaulttdRegProv")
strComputer & "\root\defaulttdRegProv")
strKeyPath = "System\CurrentControlSet\Control\TimeZoneInformation"
strValueName = "ActiveTimeBias"
dwValue = 180
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
dwValue = 180
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
strValueName = "DaylightBias"
dwValue = 0
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
dwValue = 0
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
strValueName = "DaylightName"
strValue= "Hora oficial do Brasil"
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
strValue= "Hora oficial do Brasil"
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
strValueName = "DisableAutoDaylightTimeSet"
dwValue = 1
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
dwValue = 1
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
'Net time
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set objShell = CreateObject("WScript.shell")
strCmd = "net time \\servidor_pdcemulator /set /yes"
set objexec = objshell.exec(strcmd)
strCmd = "net time \\servidor_pdcemulator /set /yes"
set objexec = objshell.exec(strcmd)
fonte: https://ivobarrosti.blogspot.com/2011/10/script-de-horario-de-verao.html
----- erro windows 7 sp1:
whoami /priv
----- erro windows 7 sp1:
whoami /priv
0 comentários:
Postar um comentário