FONCTION fg_SynchroHeure(sNomServeur="", sErr="")
// Version 1.00 pour WD7 (WD55 voir les déclarations)
// (c) Novembre 2002 Romain PETIT (mailto:rompetit@ifrance.com)
// sous licence WD-LIBRE (http://www.windevasso.org)
// But: Synchroniser l'heure du poste avec un serveur
// ATTENTION, l'API ne fonctionne que sous NT/2K/XP (avec les droits suffisants)
// pour W9x/Me, la commande console NET TIME sera substituée à l'API
// (qui fonctionne également sous NT/2K/XP)
// Paramètres: Nom du serveur sur lequel regler l'horloge (\\SERVEUR ou SERVEUR)
// (une chaine vide synchronisera l'heure sur le poste lui-même :-)
// Retour: Booléen,
// en cas d'erreur, la fonction retourne faux et la chaine
// sErr passée par adresse peut être récupérée.
// Références API:
// http://msdn.microsoft.com/library/default.asp?url=/library/en-us/netmgmt/netmgmt/netremotetod.asp
// Exemple :
// sErreur est une chaine
// SI PAS fg_SynchroHeure("\\SERVEUR", sErreur) ALORS
// Erreur("Impossible de mettre à l'heure, raison : "+sErreur)
// SINON
//Info("Ce poste a été mis à l'heure")
// FIN
bRes est un booléen//résultat de la fonction
slNomServeur est une chaîne//copie locale du nom du serveur
slNomServeur = SansEspace(sNomServeur)
SI slNomServeur<>"" ALORS
//on s'assure qu'il y ait bien \\
SI slNomServeur[[A 2]]<>"\\" ALORS slNomServeur = "\\" + slNomServeur
FIN

SI SysVersionWindows(sysVersionPlateForme)<>"NT" ALORS
// Si le serveur n'est pas précisé, on donne le poste local
// (car si vide, c'est le serveur de domaine qui sera pris)
SI slNomServeur~="" ALORS slNomServeur="\\"+NetNomMachine()
sFichierScript est une chaîne = fRépertoireTemp()+"SYHtmp.BAT"
sFichierRes est une chaîne = fFichierTemp("SYH")
sResu est une chaîne
eNumfic est un entier = fOuvre(sFichierScript, foCréation+foEcriture)
SI eNumfic<>-1 ALORS
SI fEcrit(eNumfic,"NET TIME "+slNomServeur+" /SET /Y >"+sFichierRes)<>-1 ALORS
bRes = Vrai
FIN
fFerme(eNumfic)
SI bRes ALORS
SI DDELance(sFichierScript,DDEIconise,Vrai) ALORS
eNumfic= fOuvre(sFichierRes)
SI eNumfic<>-1 ALORS
sResu=fLit(eNumfic,1024)
fFerme(eNumfic)
FIN
FIN
fSupprime(sFichierScript)
fSupprime(sFichierRes)

FIN
bRes = Faux
SI sResu~="" ALORS
sErr = "Echec de la mise à l'heure, le serveur "+slNomServeur+...
" est peut-être indisponible."
SINON
bRes = Vrai
FIN
SINON
sErr = "Echec de la mise à l'heure, impossible de créer le fichier temporaire."
FIN
SINON
eRes est un entier //WD55 : entier long //résultat de l'API
ePointeurBuffer est un entier //WD55 : entier long
teNomServeur est un tableau de 255 entiers courts //WD55 : est un tableau 255 entiers courts
c est un entier
strTIME_OF_DAY_INFO est une structure
tod_elapsedt est un entier //WD55 : entier long
tod_msecsest un entier //WD55 : entier long
tod_hoursest un entier //WD55 : entier long
tod_minsest un entier //WD55 : entier long
tod_secsest un entier //WD55 : entier long
tod_hundsest un entier //WD55 : entier long
tod_timezoneest un entier //WD55 : entier long
tod_tintervalest un entier //WD55 : entier long
tod_dayest un entier //WD55 : entier long
tod_monthest un entier //WD55 : entier long
tod_yearest un entier //WD55 : entier long
tod_weekdayest un entier //WD55 : entier long
FIN
strSYSTEMTIME est une structure
wYearest un entier sur 2 octets sans signe //WD55 : entier sans signe
wMonthest un entier sur 2 octets sans signe //WD55 : entier sans signe
wDayOfWeekest un entier sur 2 octets sans signe//WD55 : entier sans signe
wDayest un entier sur 2 octets sans signe //WD55 : entier sans signe
wHourest un entier sur 2 octets sans signe //WD55 : entier sans signe
wMinuteest un entier sur 2 octets sans signe //WD55 : entier sans signe
wSecondest un entier sur 2 octets sans signe //WD55 : entier sans signe
wMillisecondsest un entier sur 2 octets sans signe //WD55 : entier sans signe
FIN
stLocSTest une strSYSTEMTIME
stServeurTODinfoest une strTIME_OF_DAY_INFO
// On transforme la chaine en tableau UNICODE
// (1 caractere sur 2 octets)
POUR c=1 A Taille(slNomServeur)
teNomServeur[(c*2)-1] = Asc(slNomServeur[[c]])
teNomServeur[c*2] = 0
FIN
teNomServeur[(c*2)+1]= 0 // 0 final
SI slNomServeur~="" ALORS slNomServeur=" le poste local"
eRes = AppelDLL32("netapi32","NetRemoteTOD", &teNomServeur,&ePointeurBuffer)
//Récupération de l'heure du serveur et copie mémoire dans la structure
SI eRes = 0 ALORS //NERR_SUCCESS=0
SI ePointeurBuffer<>0 ALORS
Transfert(&stServeurTODinfo, ePointeurBuffer, Dimension(stServeurTODinfo))
// Affectation des valeurs de la structure strTIME_OF_DAY_INFO
// dans la structure strSYSTEMTIME
// et reglage de l'heure (attention, heure GMT et non locale mais
// l'API SetSystemTime tient compte du paramétrage local)
stLocST:wHour= stServeurTODinfo:tod_hours
stLocST:wMinute= stServeurTODinfo:tod_mins
stLocST:wSecond= stServeurTODinfo:tod_secs
stLocST:wDay= stServeurTODinfo:tod_day
stLocST:wMonth= stServeurTODinfo:tod_month
stLocST:wYear= stServeurTODinfo:tod_year
SI AppelDLL32("kernel32", "SetSystemTime", &stLocST)<>0 ALORS
bRes = Vrai
SINON
sErr = "Echec lors de la mise à jour de l'heure sur le poste local,"+...
"vous ne disposez probablement pas des droits suffisants pour cette opération."
FIN
SINON
sErr="Echec de la récupération de l'heure sur "+slNomServeur+...
", pointeur nul"
FIN
SINON
sErr="Echec de la récupération de l'heure sur "+slNomServeur+...
", échec de la fonction NetRemoteTOD : erreur n° "+eRes
FIN
// libération du buffer
AppelDLL32("netapi32", "NetApiBufferFree", ePointeurBuffer)
FIN
RENVOYER bRes