Option Explicit

Private Type SYSTEMTIME
    wYear As Integer
    wMonth As Integer
    wDayOfWeek As Integer
    wDay As Integer
    wHour As Integer
    wMinute As Integer
    wSecond As Integer
    wMilliseconds As Integer
End Type

Private Type TIME_ZONE_INFORMATION
    Bias As Long
    StandardName(0 To 31) As Integer
    StandardDate As SYSTEMTIME
    StandardBias As Long
    DaylightName(0 To 31) As Integer
    DaylightDate As SYSTEMTIME
    DaylightBias As Long
End Type

Private Enum TIME_ZONE
    TIME_ZONE_ID_INVALID = 0
    TIME_ZONE_STANDARD = 1
    TIME_ZONE_DAYLIGHT = 2
End Enum

Private Declare Function GetTimeZoneInformation Lib "kernel32" _
    (lpTimeZoneInformation As TIME_ZONE_INFORMATION) As Long

Private Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)

Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)

Function IntArrayToString(V() As Integer) As String

    Dim N As Long
    Dim S As String
    For N = LBound(V) To UBound(V)
        S = S & ChrW(V(N))
    Next N
    IntArrayToString = Trim(Replace(S, Chr(0), Chr(32)))

End Function

Sub GetTimeInfo()

    Dim TZI As TIME_ZONE_INFORMATION
    Dim DST As TIME_ZONE
    Dim StandardName As String
    Dim DaylightName As String
    Dim CurrentSystemTime As SYSTEMTIME
    Dim CurrentLocalTime As SYSTEMTIME
    
    DST = GetTimeZoneInformation(TZI)
    StandardName = IntArrayToString(TZI.StandardName)
    DaylightName = IntArrayToString(TZI.DaylightName)
    Call GetSystemTime(CurrentSystemTime)
    Call GetLocalTime(CurrentLocalTime)
    
    Debug.Print "Standard TZ Name is: " & StandardName
    Debug.Print "Daylight TZ Name is: " & DaylightName
    Debug.Print "Current System Time is: " & CurrentSystemTime.wDay & "-" & CurrentSystemTime.wMonth & "-" & _
                CurrentSystemTime.wYear & " " & CurrentSystemTime.wHour & ":" & CurrentSystemTime.wHour & ":" & _
                CurrentSystemTime.wSecond & "." & CurrentSystemTime.wMilliseconds
    Debug.Print "Current Local Time is: " & CurrentLocalTime.wDay & "-" & CurrentLocalTime.wMonth & "-" & _
                CurrentLocalTime.wYear & " " & CurrentLocalTime.wHour & ":" & CurrentLocalTime.wHour & ":" & _
                CurrentLocalTime.wSecond & "." & CurrentLocalTime.wMilliseconds

End Sub

strComputer = "." 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") 
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_TimeZone",,48) 
For Each objItem in colItems 
    Wscript.Echo "-----------------------------------"
    Wscript.Echo "Win32_TimeZone instance"
    Wscript.Echo "-----------------------------------"
    Wscript.Echo "Caption: " & objItem.Caption
    Wscript.Echo "Description: " & objItem.Description
Next

strComputer = "." 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") 
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_LocalTime",,48) 
For Each objItem in colItems 
    Wscript.Echo "-----------------------------------"
    Wscript.Echo "Win32_LocalTime instance"
    Wscript.Echo "-----------------------------------"
    Wscript.Echo "Day: " & objItem.Day
    Wscript.Echo "Hour: " & objItem.Hour
    Wscript.Echo "Minute: " & objItem.Minute
    Wscript.Echo "Month: " & objItem.Month
    Wscript.Echo "Second: " & objItem.Second
    Wscript.Echo "Year: " & objItem.Year
Next

strComputer = "." 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") 
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_UTCTime",,48) 
For Each objItem in colItems 
    Wscript.Echo "-----------------------------------"
    Wscript.Echo "Win32_UTCTime instance"
    Wscript.Echo "-----------------------------------"
    Wscript.Echo "Day: " & objItem.Day
    Wscript.Echo "Hour: " & objItem.Hour
    Wscript.Echo "Minute: " & objItem.Minute
    Wscript.Echo "Month: " & objItem.Month
    Wscript.Echo "Second: " & objItem.Second
    Wscript.Echo "Year: " & objItem.Year
Next