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