AutoIt Français

Code : Tout sélectionner

; par jl56

#include <Constants.au3>
$message = ""
$ip=InputBox("ip","mac adresse pour quel ip?",@IPAddress1,"")
$foo = Run(@ComSpec & " /c nbtstat.exe -A "&$ip,"",@SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
$macadresse=""

While 1
    $line = StdoutRead($foo)
    If @error Then ExitLoop
    $test="Adresse MAC = "
    if StringLen($line)>0 Then
        for $i=1 to StringLen($line) - 14
            if StringMid($line,$i,14)=$test then 
            $macadresse=StringUpper(StringMid($line,$i+14,17))
            ExitLoop
            EndIf
        Next
    EndIf

Wend


;nbstat n'a pas fonctionné on essai avec arp
if $macadresse="00-00-00-00-00-00" or $macadresse="" then

$foo = Run(@ComSpec & " /c arp.exe -a "&$ip,"",@SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
$macadresse=""
While 1
    $line = StdoutRead($foo)
    If @error Then ExitLoop
    $test=$ip
    if StringLen($line)>0 Then
        for $i=1 to StringLen($line) - StringLen($ip)
            if StringMid($line,$i,StringLen($ip))=$test then 
                ;ip trouvé dans la table arp
                    $i=$i+StringLen($ip)+1
                    ; on laisse passer tous les espaces apres l'ip
                    While StringMid($line,$i,1)=" "
                        $i=$i+1
                    WEnd
                    $macadresse=StringUpper(StringMid($line,$i,17))
            ExitLoop
            EndIf
        Next
    EndIf

Wend

EndIf
MsgBox(0,"Mac Adresse=",$macadresse)