' Sloppy code to display local and UTC time and timezone info
' provided by Nebula Research and Development
' http://Nebula-RnD.com
' v1.0 March 28, 2008
' This code is offered as freeware based on code samples gathered
' from various web pages.  No warranty, guarantee, or support is
' provided or assumed
' For customizations, please email Support@Nebula-RnD.com

' Windows Script Host must be on the system to execute this code.
' Type "cscript" at a DOS prompt to see if it's there, otherwise
' download WSH v5.6 from Microsoft.

' To execute, simply save this code into any directory as
' timeinfo.vbs, then type:
'   cscript timeinfo.vbs
' For details about what each field means, or how to use cscript,
' VBScript, or WSH, please consult online resources.



Dim objWMIService
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
call GetLocalInfo()
call GetTimeZoneInfo()
quit

sub GetLocalInfo()
Set colTimeZone = objWMIService.ExecQuery("Select * from Win32_TimeZone")

For Each objTimeZone in colTimeZone
  Wscript.Echo "Offset in minutes from GMT: "& objTimeZone.Bias
Next

Set colItems = objWMIService.ExecQuery("Select * from Win32_UTCTime")
For Each objItem in colItems
  Wscript.Echo ""
  Wscript.Echo "Day: " & objItem.Day
  Wscript.Echo "Day Of the Week: " & objItem.DayOfWeek
  Wscript.Echo "Hour: " & objItem.Hour
  Wscript.Echo "Minute: " & objItem.Minute
  Wscript.Echo "Month: " & objItem.Month
  Wscript.Echo "Quarter: " & objItem.Quarter
  Wscript.Echo "Second: " & objItem.Second
  Wscript.Echo "Week In the Month: " & objItem.WeekInMonth
  Wscript.Echo "Year: " & objItem.Year
Next
end sub

sub GetTimeZoneInfo()
Wscript.Echo ""
Wscript.Echo "This system:"
Set colItems = objWMIService.ExecQuery("Select * from Win32_TimeZone")
For Each objItem in colItems
  Wscript.Echo "Bias: " & objItem.Bias
  Wscript.Echo "Caption: " & objItem.Caption
  Wscript.Echo "Daylight Bias: " & objItem.DaylightBias
  Wscript.Echo "Daylight Day: " & objItem.DaylightDay
  Wscript.Echo "Daylight Day Of Week: " & objItem.DaylightDayOfWeek
  Wscript.Echo "Daylight Hour: " & objItem.DaylightHour
  Wscript.Echo "Daylight Minute: " & objItem.DaylightMinute
  Wscript.Echo "Daylight Month: " & objItem.DaylightMonth
  Wscript.Echo "Daylight Name: " & objItem.DaylightName
  Wscript.Echo "Daylight Second: " & objItem.DaylightSecond
  Wscript.Echo "Daylight Year: " & objItem.DaylightYear
  Wscript.Echo ""
  Wscript.Echo "Description: " & objItem.Description
  Wscript.Echo "Setting ID: " & objItem.SettingID
  Wscript.Echo "Standard Bias from GMT (minutes): " & objItem.StandardBias
  Wscript.Echo "Standard Day: " & objItem.StandardDay
  Wscript.Echo "Standard Day Of Week: " & objItem.StandardDayOfWeek
  Wscript.Echo "Standard Hour: " & objItem.StandardHour
  Wscript.Echo "Standard Minute: " & objItem.StandardMinute
  Wscript.Echo "Standard Month: " & objItem.StandardMonth
  Wscript.Echo "Standard Name: " & objItem.StandardName
  Wscript.Echo "Standard Second: " & objItem.StandardSecond
  Wscript.Echo "Standard Year: " & objItem.StandardYear
Next
end sub