' ## Display GMT
Function Twodigits(strInfo)
If len(strInfo) > 1 Then
Twodigits = strInfo
Else
Twodigits = "0" & strInfo
End If
End Function
Dim dtmDateValue, dtmAdjusted, objShell, lngBiasKey, lngBias
dtmDateValue = Now()
Set objShell = CreateObject("Wscript.Shell")
lngBiasKey = objShell.RegRead("HKLM\System\CurrentControlSet\Control\" & "TimeZoneInformation\ActiveTimeBias")
If (UCase(TypeName(lngBiasKey)) = "LONG") Then
lngBias = lngBiasKey
ElseIf (UCase(TypeName(lngBiasKey)) = "VARIANT()") Then
lngBias = 0
For k = 0 To UBound(lngBiasKey)
lngBias = lngBias + (lngBiasKey(k) * 256^k)
Next
End If
dtmAdjusted = DateAdd("n", lngBias, dtmDateValue)
dts = year(dtmAdjusted) & Twodigits(Month(dtmAdjusted)) & Twodigits(Day(dtmAdjusted)) & Twodigits(Hour(dtmAdjusted)) & Twodigits(Minute(dtmAdjusted)) & Twodigits(Second(dtmAdjusted)) & ""
Response.Write "GMT is now: " & dtmAdjusted & "<BR />GMT String=" & dts & "<br />"
Response.Write "Desired Format: " & year(dtmAdjusted) & "-" & Twodigits(Month(dtmAdjusted)) & "-" & Twodigits(Day(dtmAdjusted)) & " " & Twodigits(Hour(dtmAdjusted)) & ":" & Twodigits(Minute(dtmAdjusted)) & ":" & Twodigits(Second(dtmAdjusted)) & ".000Z<br />"
Response.Write "Server Time: " & dtmDateValue & "<br />"