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