Use the Win32_TimeZone class and check the value of the Description property.
Set wmiService = GetObject( "Winmgmts:root\cimv2" )
Set items = wmiService.ExecQuery( "Select * from Win32_TimeZone" )
For Each item in items
Print "Description: " & item.Description
Print "Daylight Name: " & item.DaylightName
Print "Standard Name: " & item.StandardName
Next
Recent Comments