Page 1 sur 1
[R] Nom de machine par ping
Posté : lun. 05 déc. 2011 10:35
par 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.
Re: [..] Nom de machine par ping
Posté : lun. 05 déc. 2011 10:38
par Tlem
Bonjour,
Il me semble bien que cela a déjà été évoqué sur le forum =>
http://www.autoitscript.fr/forum/search.php
Re: [..] Nom de machine par ping
Posté : lun. 05 déc. 2011 10:39
par duyen
J'ai déjà fait quelqueS rechercheS sur le forum mais bon.
Je recommence et merci quand même !
Re: [..] Nom de machine par ping
Posté : lun. 05 déc. 2011 10:57
par mikell
Re: [..] Nom de machine par ping
Posté : lun. 05 déc. 2011 11:20
par 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
Re: [..] Nom de machine par ping
Posté : lun. 05 déc. 2011 11:42
par 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
Re: [..] Nom de machine par ping
Posté : lun. 05 déc. 2011 11:48
par 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
Re: [..] Nom de machine par ping
Posté : lun. 05 déc. 2011 14:00
par 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)
Re: [..] Nom de machine par ping
Posté : lun. 05 déc. 2011 14:09
par 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)
Re: [..] Nom de machine par ping
Posté : lun. 05 déc. 2011 16:04
par duyen
Merci beaucoup !