Descrição:
Como descobrir qual o Offset configurado no PC para que seja possível calcular o horário em relação ao UTC/GMT?
Solução:
Através do VBScript, é possivel retornar o valor do Offset configurado no Registro do Windows.
Exemplo de script:
DataHora = now()
set Shell = CreateObject("WScript.Shell")
atb = "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\TimeZoneInformation\ActiveTimeBias"
offsetMin = Shell.RegRead(atb)
msgbox "Offset em Minutos = " & offsetMin UTC = DateAdd("n", offsetMin, DataHora) 'Soma o Offset na DataHora atual
msgbox "Atual = " & DataHora & " --- UTC = " & UTC
