AutoIt Français

Code : Tout sélectionner

#include <Constants.au3>
$message = ""
$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
Run("notepad.exe")
WinWaitActive("Sans titre - Bloc-notes")
Send("Le nom de pc est  : " & @ComputerName)
Send("{ENTER}")
Send("L'adresse mac est : " & $macadresse)
Send("!{F}")
Sleep(200)
Send("{DOWN}")
Send("{DOWN}")
Send("{ENTER}")
sleep(200)
Send(@ComputerName & ".txt")
Sleep(200)
Send("{ENTER}")
sleep(200)
Send("!{F4}")

FileMove("D:\Documents and Settings\" & @UserName & "\Bureau\" & @ComputerName & ".txt", "F:\config réseau")