'
' VBScript para testar se um computador encontra-se ou não no horário de verão
' Retorna True caso esteja no horário de verão ou False caso contrário
'
' Copyrigth (C) 2012 by Ilanio Castro <ilanio.castro at gmail.com>
'

Option Explicit

Function HorVer()
    'Detecta se o computador encontra-se em horario de verao (retorna true) ou não (retorna false)
    Dim oShell, bias, atb

    set oShell = CreateObject("WScript.Shell")

    atb = oShell.RegRead("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\TimeZoneInformation\ActiveTimeBias")
    bias = oShell.RegRead("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\TimeZoneInformation\Bias")

    Set oShell = Nothing

    If atb = bias Then
         HorVer = False
    Else
         HorVer = True
    End If
End Function

'
' Adicionado por Rafael Jorge Csura Szendrodi <szendro at pads.ufrj.br>
' As duas linhas abaixo servem para testar a função HorVer()
'Dim VerificaHV
'msgbox("Computador no horário de verão = " & HorVer)