[..] Ping continu et fichier log

[tchomil]

Bonjour, J'ai besoin d'un script que j'ai reussi qu'a moitié. ^^
c'est pour cela que j'ai besoin de vous.

le script, doit envoyé un ping en continu sur 10 adresse ip, les unes apres les autres
(192.168.1.1~192.168.1.10)
Et des que le ping depasse 30ms, ecrire une ligne dans un fichier de log et continué a integorré l'adresse ip qui depasse les 30ms.
Et si possible, avoir une boite de dialogue qui pourra arreter le script.

Merci d'avance

[tchomil]

Voila ce que j'ai réussi a faire, je voulais savoir si c'etait une bonne methode pour ce que je veux.
il me manque juste une boite de dialogue ou autre pour arreté le script

Code : Tout sélectionner

#include <Date.au3>
Dim $r1sw1
While 1
   
$r1sw1 = Ping("192.168.1.1")
if $r1sw1 > 30 Then
   FileWriteLine("log.txt", "Ping de r1sw1 : " & $r1sw1 & " le " & _NowDate() & " à " & _NowTime())
      Do
         $r1sw1 = Ping("192.168.1.1")
         if $r1sw1 > 30 Then
         FileWriteLine("log.txt", "Ping de r1sw1 : " & $r1sw1 & " le " & _NowDate() & " à " & _NowTime())
         EndIf
      until $r1sw1 < 30
EndIf

WEnd
 

J'ai pas mis le code pour 10, pour evité de surcharger le forum...

[mikell]

Hello
Essaie ça

► Afficher le texte

Code : Tout sélectionner

#include <Date.au3>

HotKeySet("{ESC}", "_stop")   ; touche Echap pour arrêter le script

While 1  
For $i = 1 To 10
    $r1sw1 = Ping("192.168.1." & $i, 100)   ; ping les 10 adresses successivement
    If $r1sw1 > 30 Then      ; si une répond
        $adresse_ok = "192.168.1." & $i
        FileWriteLine("log.txt", "Ping de " & $adresse_ok & " : " & $r1sw1 & " le " & _NowDate() & " à " & _NowTime())
        ExitLoop 2    ; sort de la boucle While
    EndIf
Next
Sleep(1000)
WEnd

; mettre ici la suite du script (l'adresse qui a répondu est : $adresse_ok)

Func _stop()
    Msgbox(0,"", "script arrêté")
    Exit
EndFunc
 

[tchomil]

je te remercie

[tchomil]

Par contre j'ai cherché, et je trouve toujours pas comment affiché une fenetre ou autres qui me dit que le script tourne en ce moment...
A part a coté de l'horloge le logo Autoit...

[zyclo]

Par contre j'ai cherché, et je trouve toujours pas comment affiché une fenetre ou autres qui me dit que le script tourne en ce moment...
A part a coté de l'horloge le logo Autoit...

Bonsoir, je mets un tooltip .. comme texte, l action qui est en train de faire ..
au fait, il y a une raison particuliere pour que tu fasses un ping avec autoit, au lieu de le faire en DOS ? (suis curieux ... )

[mikell]

Ben tu peux te faire une petite gui popup et déplaçable dans un coin par exemple

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <Date.au3>
#include <WindowsConstants.au3>

HotKeySet("{ESC}", "_stop")   ; touche Echap pour arrêter le script

$gui = GuiCreate("", 130, 20, @desktopwidth-150, 20, $WS_POPUP)
$label = GUICtrlCreateLabel("", 0, 0, 130, 20, 1, $GUI_WS_EX_PARENTDRAG)
GUICtrlSetFont(-1, 9, 600, 0, "Comic Sans MS")
GUICtrlSetBkColor(-1, 0xE0FFFF)
GUISetState()

While 1  
For $i = 1 To 10
    $r1sw1 = Ping("192.168.1." & $i, 100)   ; ping les 10 adresses successivement
    GuiCtrlSetData($label, "ping  192.168.1." & $i)
    If $r1sw1 > 30 Then      ; si une répond
        $adresse_ok = "192.168.1." & $i
        FileWriteLine("log.txt", "Ping de " & $adresse_ok & " : " & $r1sw1 & " le " & _NowDate() & " à " & _NowTime())
        ExitLoop 2    ; sort de la boucle While
    EndIf
Next
Sleep(1000)
WEnd

; mettre ici la suite du script (l'adresse qui a répondu est : $adresse_ok)

Func _stop()
    GuiDelete($gui)
    Msgbox(0,"", "script arrêté")
    Exit
EndFunc
 

[fabienlehmann]

dsl pour la réponse tardif ...

en fait le ping est inclu dans une boite a outil qui permet de faire d'autre action ... le ping permet juste de verifier que la machine est démarré

exemple :Arreter , redemarrer la machine, renommer un poste

en plus l'objet autoit permet de faire un traitement multiple