Déterminer mon décalage de fuseau horaire à l'aide de VBScript?

Comment puis-je déterminer mon décalage horaire à l'aide de VBScript?

Le système d'exploitation Windows fournit la TZ variable d'environnement. Pour l'Heure normale de l'est (New York), sa valeur est EST5EDT. Cependant, je suis à la recherche pour le nombre entier signé de décalage de l'heure UTC. (C'est -5 pour l'Heure normale de l'est.)

OriginalL'auteur DavidRR | 2012-12-20

  1. 10

    Ici est une version révisée de la fonction qui s'affiche pour tenir compte de l'Heure d'été. (Inspiré par cette SORTE de 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

    [Fonction originale qui ne tient PAS compte de l'Heure d'été.]

    Voici ma réponse à ma question (original source).

    Pour l'Heure normale de l'est (New York), cette fonction VBScript sera de retour -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
    Cela ne semble pas compte de l'heure d'été?
    S'il vous plaît laissez-moi savoir si ma fonction révisée représente maintenant l'Heure d'été sur votre système.
    Pour quiconque recherche, cette méthode va effectivement vous permettre de précision de la requête pour le temps en fonction de l'Observateur d'Événements pour les événements via WMI. Vous pouvez ensuite faire le calcul pour tenir compte de la valeur par défaut-l'écriture des événements que l'UTC.

    OriginalL'auteur DavidRR