[R] Nom de machine par ping

[duyen]

Bonjour,

j'aurais souhaité récupérer un nom de machine avec la commande "Ping".
Je balance plusieurs ping sur des noms et il faudrait que je récupère le nom de celui qui répond.
Si vous avez une idée !

Merci.

[Tlem]

Bonjour,

Il me semble bien que cela a déjà été évoqué sur le forum => http://www.autoitscript.fr/forum/search.php

[duyen]

J'ai déjà fait quelqueS rechercheS sur le forum mais bon.
Je recommence et merci quand même !

[mikell]

Recherche 1 minute => http://www.autoitscript.fr/forum/viewto ... hilit=ping

[duyen]

Merci pour le coup de mains, effectivement je suis passé dessus tout à l'heure mais c'est que je ne comprend pas !
Si quelqu'un avait 5min.
Merci.

Exemple grossier de ce que je souhaiterais :

ping machine1
ping machine2
ping machine3
ping machine4

la machine qui répond est : machine3

[mikell]

C'est une boucle de test que tu veux ?

Code : Tout sélectionner

Dim $machines[4] = ["machine1", "machine2", "machine3", "machine4")
For $i = 0 To UBound($machines)-1
    $ping = Ping($machines[$i])
    If $ping > 0 Then MsgBox(0,"", $machines[$i])
Next

[duyen]

Oui je pense.
Il ping une série de serveurs et c'est celui qui répond que je veux.
Une fois qu'il a répondu, je le récupère dans une variable et je passe à la suite.

Merci pour ton aide

[TT22]

Alors, dans ce cas là, il faut faire ça :

Code : Tout sélectionner

Dim $machines[4] = ["machine1", "machine2", "machine3", "machine4")
For $i = 0 To UBound($machines)-1
    $ping = Ping($machines[$i])
    If $ping Then
        $Serveur = $machines[$i]
    Endif
Next
MsgBox(0,"", $Serveur)

[mikell]

Voire ça si plusieurs machines répondent

Code : Tout sélectionner

Dim $machines[4] = ["machine1", "machine2", "machine3", "machine4")
$text = ""
For $i = 0 To UBound($machines)-1
    $ping = Ping($machines[$i])
    If $ping > 0Then
        $text &= $machines[$i] & @CRLF
    Endif
Next
MsgBox(0,"", $text)

[duyen]

Merci beaucoup !