code: 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