Commandes ping et arp

Bonjour,

Je désire récupérer l'adresse MAC d'un équipement réseau dans une appli Lazarus.
Je pense donc faire un ping puis une commande arp pour l'adresse ip obtenue au ping.
Je fais un ping par un TProcess mais une fenêtre noire reste à l'écran. Et si l'utilisateur la tue alors l'appli Lazarus se ferme.

Une idée ????

Code:

---

1 2 3 4 5 6 7 8 9 10 11

cmd:=TProcess.Create(nil); ret:=TStringList.Create; cmd.executable:='ping'; cmd.Parameters.Text:='192.168.1.15' + lineending; log('-----------------------------------'+cmd.executable); cmd.options:=cmd.options+[poUsePipes,poWaitOnExit]; cmd.ShowWindow:=swoHIDE; cmd.execute; ret.LoadFromStream(cmd.output); for i:=0 to ret.Count-1 do log('-----------------------------------'+ret[i]);

---

Citation:

---

Envoyé par _willou

Bonjour,

Je desire recuperer l'adresse MAC d'un equipement reseau dans une appli Lazarus.
Je pense donc faire un ping puis une commande arp pour l'adresse ip obtenue au ping.
Je fais un ping par un TProcess mais une fenetre noire reste à l'écran. Et si l'utilisateur la tue alors l appli Lazarus se ferme.

Une idée ????

---

Bonjour,

Tu trouveras ici une discussion en anglais sur le sujet (Jurassic Pork, un habitué du forum y a participé). Va voir vers la fin de la discussion : avec Linux, tout paraît facile ; autrement, le code est plutôt long...

Gilles

hello,
Gilles , mon code c'est pour une adresse MAC locale, willou cherche à avoir une adresse MAC distante et effectivement on peut utiliser la commande arp pour avoir cette info.
En adaptant mon code pour cette commande voilà ce que cela donne pour Windows :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

// J.P code pour trouver adresse MAC d'une adresse I.P distante // à rajouter si besoin uses Regexpr,process; // =========================================== var reponse : string; re: TRegExpr; i: integer; adresseDistante : string; begin adresseDistante := '192.168.0.1'; RunCommand('ping',['-n','1',adresseDistante],reponse); //ShowMessage(reponse); if pos('Impossible',reponse) > 0 then ShowMessage('Adresse non joignable')else begin RunCommand('arp',['-a',adresseDistante],reponse); //ShowMessage(reponse); try re := TRegExpr.Create; // motif qui correspond à une adresse MAC sous windows re.Expression := '[0-9a-f]{2}-[0-9a-f]{2}-[0-9a-f]{2}-' + '[0-9a-f]{2}-[0-9a-f]{2}-[0-9a-f]{2}'; if re.Exec(reponse) then showMessage('adresse MAC de ' + adresseDistante + ' : ' + re.Match[0]) else ShowMessage('adresse MAC non trouvée'); finally re.Free; end; end; end;

---

Pour linux il faut adapter la syntaxe et mettre le chemin complet des commandes ping et arp et adapter le code aux réponses.
Attention il y a des cas où ce n'est pas Impossible qui est répondu quand une adresse n'est pas joignable (exemple "Délai d'attente dépassé")
L'arp ne fonctionne pas toujours si il y a des équipements intermédiaires.

Ami calmant, J.P

hello,
et voici la version linux :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

var reponse : string; re: TRegExpr; i: integer; adresseDistante : string; begin adresseDistante := '192.168.0.1'; RunCommand('ping',['-c','1',adresseDistante],reponse); //ShowMessage(reponse); if pos('Unreachable',reponse) > 0 then ShowMessage('Adresse non joignable')else begin RunCommand('arp',['-a',adresseDistante],reponse); //ShowMessage(reponse); try re := TRegExpr.Create; re.Expression := '[0-9a-f]{2}:[0-9a-f]{2}:[0-9a-f]{2}:' + '[0-9a-f]{2}:[0-9a-f]{2}:[0-9a-f]{2}'; if re.Exec(reponse) then showMessage('adresse MAC de ' + adresseDistante + ' : ' + re.Match[0]) else ShowMessage('adresse MAC non trouvée'); finally re.Free; end; end;

---

testé sous Ubuntu 14.04 64 bits Lazarus 1.4

Ami calmant, J.P

hello,
je ne sais pas qui a mis résolu, mais c'est si toi _willou, il est d'usage de dire dans le forum comment le problème a été résolu.

Ami calmant, J.P