vbscript - 使用 VBScript 确定我的时区偏移量？

Question

如何使用VBScript确定我的时区偏移量？

Windows 操作系统提供TZ环境变量。对于东部标准时间（纽约），其值为EST5EDT。但是，我正在寻找与 UTC 的有符号整数偏移量。（东部标准时间为-5。）

Answer 1

这是一个修改后的函数，似乎考虑了夏令时。（受这个 SO question的启发。）

Function GetTimeZoneOffset()
    Const sComputer = "."

    Dim oWmiService : Set oWmiService = _
        GetObject("winmgmts:{impersonationLevel=impersonate}!\\" _
                  & sComputer & "\root\cimv2")

    Set cItems = oWmiService.ExecQuery("SELECT * FROM Win32_ComputerSystem")

    For Each oItem In cItems
        GetTimeZoneOffset = oItem.CurrentTimeZone / 60
        Exit For
    Next
End Function

---

[不考虑夏令时的原始功能。]

这是我对我的问题的回答（原始来源）。

对于东部标准时间（纽约），此 VBScript 函数将返回-5：

Function GetTimeZoneOffset()
    Const sComputer = "."

    Dim oWmiService : Set oWmiService = _
        GetObject("winmgmts:{impersonationLevel=impersonate}!\\" _
                  & sComputer & "\root\cimv2")

    Dim cTimeZone : Set cTimeZone = _
        oWmiService.ExecQuery("Select * from Win32_TimeZone")

    Dim oTimeZone
    For Each oTimeZone in cTimeZone
        GetTimeZoneOffset = oTimeZone.Bias / 60
        Exit For
    Next
End Function