Dim objWMI, objCollection, objItem
Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
Set objCollection = objWMI.ExecQuery("SELECT * FROM Win32_ComputerSystem")
For Each objItem In objCollection
    If objItem.DaylightInEffect Then
        WScript.Echo "Смещение относительно Гринвича (час.): " & objItem.CurrentTimeZone \ 60 & _
            vbNewLine & "Режим ""Автоматический переход на летнее время и обратно"" включен."
    Else
        WScript.Echo "Смещение относительно Гринвича (час.): " & objItem.CurrentTimeZone \ 60 & _
            vbNewLine & "Режим ""Автоматический переход на летнее время и обратно"" отключен."
    End If
Next
Set objCollection = Nothing
Set objWMI = Nothing

Автор примера - Dmitrii.