VBScript DateTimeBias

'********************************************************************

'*

'* Function DateTimeBias

'*

'*   Author: NetworkAdminKB.com

'*  Created: 2006-01-13

'* Modified: 2006-01-13

'*

'* Purpose: Returns the local Time Zone bias in seconds for the local

'*            computer.

'*

'*   Input: None

'*

'*  Output: Returns the local Time Zone bias from the local computer.

'*            The value returned is of type Long.

'*

'*   Notes: The ActiveTimeBias setting accounts for daylight savings

'*            time as well.  The time zone setting is stored as HEX in the

'*            registry but is automatically converted to the proper decimal values

'*            by the RegRead function.  In the registry the format is a follows.

'*            Positive numbers in multiples of 60 minutes (60, 120, etc.)

'*            represent GMT-X time zones.  GMT+X time zones are represented

'*            as HEX complements (0xFFFFFFC4, etc) that are off by one (ie.

'*            0xFFFFFFFF - 0xFFFFFFC4 = 0x3B = 59 seconds) which RegRead will

'*            return as -60.

'*

'********************************************************************

Function DateTimeBias

  'Version: 1.0 2006-01-13

  Dim objShell

  Set objShell = CreateObject("Wscript.Shell")

  DateTimeBias = objShell.RegRead("HKLM\System\CurrentControlSet\Control\" & _

                                  "TimeZoneInformation\ActiveTimeBias")

  Set objShell = Nothing

End Function 'DateTimeBias