Sub object_OnTimer123
od = now()
Set oShell = CreateObject("WScript.Shell")
atb = "HKEY_LOCAL_MACHINE\System\CurrentControlSet\" & "Control\TimeZoneInformation\ActiveTimeBias"
offsetMin = oShell.RegRead(atb)
nd = dateadd("n", offsetMin, od)
object.text= "Now: " & (od) & " GMT: " & (nd)
End sub
The script above reads the registry and finds the difference between system time and GreenwichMeanTime. If you put it into a text object you'll see the information it provides. It is very efficient in setting different time zones for my latest widget here:
--LINK--As you may read in the thread in the link, one user had some security issues when using my widget.
I pretty sure the aforementioned code may be the source of the problem but I'm not sure how. Does anyone with experience and better knowledge of scripting know if the code above can cause such security concerns? If so, how can I fix it? Thanks.