<%
Function TimeZone()
Set oShell = CreateObject("WScript.Shell")
atb = "HKEY_LOCAL_MACHINE\System\CurrentControlSet\" & _
"Control\TimeZoneInformation\ActiveTimeBias"
TimeZone = - oShell.RegRead(atb) / 60
End Function
%>