Return Time Zone

email me

strComputer = “.”

Set objWMIService = GetObject(“winmgmts:\\” & strComputer & “\root\cimv2”)
Set colItems = objWMIService.ExecQuery(“Select * From Win32_TimeZone”)

For Each objItem in colItems
Set colItems2 = objWMIService.ExecQuery(“Select * From Win32_ComputerSystem”)

For Each objItem2 in colItems2
blnDaylightInEffect = objItem2.DaylightInEffect
Next

If blnDaylightInEffect Then
Wscript.Echo objItem.DaylightName
Else
Wscript.Echo objItem.StandardName
End If
Next