Je voudrais vous proposer de tester une petite application dédiée au administrateurs réseaux qui permet de se connecter aux équipements du réseau via Telnet (crt, securecrt, putty, kitty, ...).
Écrite en PB, elle est disponible sur un site Web sans prétention: http://yh.toolbox.free.fr
Elle est totalement opérationnelle et peut-être utilisée en entreprise.
Le site a aussi un accès protégé, car dédié a mon ancienne entreprise.
L'application est sur la page d'accueil en accès libre.
YH vient de l'époque NIS/Unix qu'on appelait Yellow Pages.
YH est un acronyme de Yellow Hosts a mettre en rapport avec Yellow Pages
Pour fonctionner, l'application a besoin d'un fichier hosts.
Ce fichier hosts peut-être récupéré par http, ftp ou tftp sur un serveur du réseau.
Il doit comporter 3 champs séparés par des [espaces +] tabulations.
Champ 1 = adresse IP, Champ 2 = nom du noeud, Champ 3 optionnel = Flag
Les fonctionnalités sont peu nombreuses mais suffisantes:
Utilisation du Telnet de Windows par défaut, a documenter dans la fenêtre des Options.
Si utilisation de crt ou securecrt, gestion des multi-sessions dans des onglets (10max)
Une option permet de passer des paramètres a l'application Telnet utilisée (hors crt/securecrt)
Limitation du nombre d'équipements affichés a 1000 par défaut (max=5000)
Tri sur chacune des colonnes si la liste ne contient pas plus de 2048 entées.
Le fichier hosts est mis a jour a chaque démarrage de l'application, puis toutes les 1/2 heures (HH:20 et HH:50)
La méthode de récupération de ce fichier est définie dans les options.
L'application recherche un fichier nommé hosts a la racine d'un serveur Web ou d'un serveur tftp ou d'un serveur ftp anonyme.
Si vous êtes intéressés, je vous laisse découvrir l'application.
Dites moi ce que vous en pensez.
Code pour créer un fichier hosts de test qui doit avoir le nom yhle.hosts.@ip_serveur.txt
Code : Tout sélectionner
server$ = "192.168.0.10"
count=0 : s1$="192" : s2$="168" : file$="yhle.hosts."+server$+".txt" : rand=0
NewMap flag.s()
flag("1") = "#ROU"
flag("2") = "#SWT"
flag("3") = "#RFW"
flag("4") = "#GWY"
If CreateFile(0,file$)
For s3 = 92 To 200
s3$ = Str(s3)
net$ = s1$+"."+s2$+"." + s3$
host$ = "node-"+s1$+"-"+s2$+"-"+s3$+"-"
For s4 = 0 To 255
s4$ = Str(s4)
rand = Random(4 ,1)
line$ = LSet(net$+"."+s4$,15)+Chr(9)+host$+s4$+Chr(9)+flag(Str(rand))
WriteStringN(0, line$)
Next
count+256
Next
CloseFile(0)
EndIf
Un grand merci a ceux qui m'ont aidé pour déboguer cette application.
Ils se reconnaitrons.
Gérard
