tester LAN

Marsh Posté le 17-01-2012 à 09:13:05

Bonjour,

Je suis confronté à quelques problèmes. J'ai monté un réseau dans une école et j'ai utilisé plusieurs technologies : CPL / wifi /câbles.
Il y a environ une vingtaine de prises CPL réparties sur toute l'école. Les institutrices me disent qu'il y a des coupures, notamment avec le photocopieur réseau qui est branché sur une prise CPL. Il y aurait aussi de longues coupures internet.
J'ai créé un batch qui ping en permanence ce photocopieur ainsi que le routeur wifi mais ce n'est pas très pratique et pas très lisible.
Existe t'il un programme ou un moyen de tester le réseau et de voir où cela pêche?

merci par avance pour vos réponses.

Reply

Marsh Posté le 17-01-2012 à 09:13:05

Reply

Marsh Posté le 17-01-2012 à 11:08:02

Concernant tes soucis, CPL et photocopieur ça ne fait pas bon ménage. C'est peut être là que se situe le nœud du problème.

Pour tester en ping, tu préfères en batch, VBScript ou AutoIT ?

En AutoIT je verrais un truc du genre :
1- je crée mon programme simple sur AutoIT (192.167.66.2 étant l'ip à pinger)

Citation :

Global $serveur="192.167.66.2"
$tps_idle=1000*60 ;une minute

AdlibRegister("check_srv",$tps_idle)

While 1
Sleep(int($tps_idle/2)+1)
WEnd

Func check_srv()
Local $resultat_ping,$cause,$str_cause=""
$resultat_ping = Ping($serveur)
$cause=@error
If Not $resultat_ping Then
Switch $cause
Case 1
$str_cause="Machine hors ligne"
Case 2
$str_cause="Machine non atteignable"
Case 3
$str_cause="Mauvaise destination"
Case 4
$str_cause="Autre erreur"
Case Else
$str_cause="Erreur inconnue"
EndSwitch
MsgBox(16,"Problème de ping sur "&$serveur,$str_cause,5)
Return 0
EndIf
Return 1
EndFunc

Retrouvé par hasard sur le forum français d'AutoIT. Mais il y a mieux, je regarde dans ma poubelle à scripts chez moi tout à l'heure, avec enregistrement horaire des coupures

2- je met mon programme en tant que service (à voir pour 7 par contre )

Et hop, j'ai ma solution maison...