Paste in solutions valuable to remember
_________________________________________________________________________________________________________
Local date and UTC Time
PRINTOUT:
Local: 11/18/2013 10:56:05 AM
UTC: 11/18/2013 9:56:05 AM
CODE:
<%@ Language=VBScript %>
<%
option explicit
Dim currentDateTime
currentDateTime = Now()
Dim oShell
set oShell = CreateObject("WScript.Shell")
Dim regKeyOffset
regKeyOffset = "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\TimeZoneInformation\ActiveTimeBias"
Dim offsetMinutes
offsetMinutes = oShell.RegRead(regKeyOffset)
Dim UTC
UTC = DateAdd("n",offsetMinutes,currentDateTime)
%>
<strong>Local: <%=currentDateTime%></strong><br />
<strong>UTC: <%=UTC%></strong><br />
_________________________________________________________________________________________________________