如何使用VBScript確定我的時區偏移量？

Question

如何確定我的時區偏移量使用VBScript？

Windows操作系統提供了TZ環境變量。對於東部標準時間（紐約），其值爲EST5EDT。但是，我正在查找UTC的有符號整數偏移量。 （這是東部標準時間的-5。）

Answer 1

這是一個修改後的函數，它似乎考慮了夏令時。 （由this 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 

---

[原創功能，不考慮夏令時。]

這裏是我的回答我的問題（original source）。

對於東部標準時間（紐約），這個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