REBOL
[
Sujet: "Récupération de date/heure d'une liste de serveurs"
Auteur: "RebolZone"
Version: "1.0"
Commentaires: ""
]
recupHeureServeur: function [ adrIpServ ] [ ]
;*********************************************************
; Rôle : Renvoi la date et heure d'un serveur
; Paramè tres : Adresse Ip
; Retour : Date/Heure ou message
; Commentaires :
;*********************************************************
[
cmd: join daytime:// [ adrIpServ ]
if error? try
[
ret: read cmd
return ret
]
return "Date Non disponible"
]
;Chargement de la liste des serveurs
appDir: what-dir
ficDir: join appDir to-file "serveurs.r"
serveurs: load ficDir
;Récup du nombre de serveurs
nbServ: length? serveurs
;
tabServeurHeure: []
;Boucle sur les serveurs
for I 1 nbServ 1 [
print "***************************"
ligneCourante: pick serveurs I
serveur: ligneCourante/1
print join "Serveur : " serveur
; Recup heure : appel de la fonction
dateServeur: recupHeureserveur serveur
print join "Date actuelle : " now()
print join "Date serveur : " dateServeur
print "***************************"
]
print "Fin de connexion"
;Attente et fin de programme
input
********************************************************************
Fichier serveurs.r (utilisé + Haut)
REBOL
[Titre: "Liste des Serveurs"
Auteur: "RebolZone"]
[
["192.3.20.186"]
["192.3.20.187"]
["192.3.20.188"]
]
FTP 
