Uhrzeit vom NTP-Server holen

04/07/2008 - 13:23 von Winfried Wolf | Report spam
Hallo,
ich suche grad Programmcode, um die Uhrzeit direkt von einem NTP-Server
im Internet zu holen. Soll zum Schutz vor versehentlicher oder
absichtlicher Manipulation der Windows-Zeit dienen.
Hat jemand mal was in der Art gesehen?

Gruß,
WiWo
 

Lesen sie die antworten

#1 Jan Bucek
04/07/2008 - 14:17 | Warnen spam
Winfried Wolf napsal(a):
Hallo,
ich suche grad Programmcode, um die Uhrzeit direkt von einem NTP-Server
im Internet zu holen. Soll zum Schutz vor versehentlicher oder
absichtlicher Manipulation der Windows-Zeit dienen.
Hat jemand mal was in der Art gesehen?

Gruß,
WiWo



oie=createobject("InternetExplorer.Application")
oie.Navigate("http://tycho.usno.navy.mil/cgi-bin/timer.pl")
do while oie.ReadyState <> 4
doevents
enddo
cTime = oie.Document.Body.InnerText
oie.Quit()

? [returned:], cTime
cTime = substr(cTime, at(',', cTime) + 2)
cTime = substr(cTime, 1, at(chr(13), cTime) - 1)
cTime = alltrim(strtran(cTime, 'UTC', ''))
? cTime + ' - this is UTC time'

Ähnliche fragen