Date et Heure de serveur NTP

Partagez vos scripts, et vos applications AutoIt.
Règles du forum
.
Répondre
Avatar du membre
mimione
Niveau 4
Niveau 4
Messages : 84
Enregistré le : mer. 30 avr. 2008 17:11
Localisation : Bretagne
Status : Hors ligne

Date et Heure de serveur NTP

#1

Message par mimione » lun. 04 sept. 2017 15:57

Hello
Pour un projet devant tourner sur plusieurs machines, j'ai eu besoin de récupérer une heure commune.
Cette fonction "_NowCalcInternet" utilise le retour de l'URL "http://ntp.alapetite.fr/date.txt.php". (Avec une précision de l'ordre de 1 seconde, ce qui me suffit).
Si vous avez une objection à cette méthode, et une autre proposition, je suis preneur, et si ça peut servir, voici le code.
ça fonctionne correctement, ma seule interrogation concerne la pérennité du site en question, mais ça semble solide à première vue.
Le Dr Alexandre Alapetite n'a pas l'air d'un charlot...! https://alexandre.alapetite.fr/cv/

(*) NTP: Network Time Protocole
#include <Date.au3>
ConsoleWrite ("DATE & HEURE INTERNET: " & _NowCalcInternet() & @CRLF)


; #FUNCTION# ===============================================================================
; Name ..........: _NowCalcInternet
; Description ...:
; Syntax ........: _NowCalcInternet ()
; Parameters ....: None
; Return values .: Date & Time au format "_NowCalc":  YYYY/MM/DD HH:MM:SS
; Author ........: M.C., Septembre 2017
; Remarks .......: le site consulté renvoie une date et heure au format: AAAA-MM-JJTHH:MM:SS+02:00
; ===========================================================================================

Func _NowCalcInternet()
        Local $oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
        $oHTTP.Open("GET", "http://ntp.alapetite.fr/date.txt.php")
        $oHTTP.Send()
        Local $DateInternet = $oHTTP.Responsetext
        $DateInternet = StringLeft ($DateInternet, 19)
        If _DateIsValid ( $DateInternet ) = 1 Then
                $DateInternet = StringReplace ($DateInternet, "T", " ")
                $DateInternet = StringReplace ($DateInternet, "-", "/")
                SetError (0)
                Return ($DateInternet)
        Else
                SetError (1)
                Return (-1)
        EndIf
EndFunc   ;==>_NowCalcInternet
Je ne suis pas toujours de mon avis....
--------------------------------------------
Des malheurs évités le bonheur se compose.

jchd
AutoIt MVPs (MVP)
AutoIt MVPs (MVP)
Messages : 1993
Enregistré le : lun. 30 mars 2009 21:57
Localisation : Sud-Ouest de la France (43.622788,-1.260864)
Status : Hors ligne

Re: Date et Heure de serveur NTP

#2

Message par jchd » lun. 04 sept. 2017 23:43

Sans vouloir minimiser les compétences manifestes et la bonne volonté de ce respectable monsieur, je ferais bien plus confiance à un pool de serveurs NTP ouverts de bon niveau (2) et gérés par le réseau universitaire, question de disponibilité des serveurs.
La cryptographie d'aujourd'hui c'est le taquin plus l'électricité.

Avatar du membre
mimione
Niveau 4
Niveau 4
Messages : 84
Enregistré le : mer. 30 avr. 2008 17:11
Localisation : Bretagne
Status : Hors ligne

Re: Date et Heure de serveur NTP

#3

Message par mimione » mar. 05 sept. 2017 06:10

C'est en effet ma seule interrogation, la disponibilité.
ceci m'a rassuré:
http://ntp.alapetite.fr/
http://www.pool.ntp.org/fr/
Et puis, pour être honnête, c'est le premier moyen simple que j'ai trouvé pour utiliser un serveur NTP ...
Je ne suis pas toujours de mon avis....
--------------------------------------------
Des malheurs évités le bonheur se compose.

Répondre