Retrieve a system MAC address from ipconfig /all

[RulerOf]

Hello Folks,

This took me long enough to do that I thought I'd share with the world.

I needed a MAC address from AutoIt code by parsing the output from "ipconfig /all" stdout stream.

It'll return the first MAC address it finds, and contains no error handling. Quick and dirty.

#include <constants.au3>

$ipconfig = Run(@ComSpec & " /c " & 'ipconfig /all', "", @SW_HIDE, $STDOUT_CHILD)

Local $line = ""

While 1
    $line &= StdoutRead($ipconfig)
    If @error Then ExitLoop
WEnd

$macraw = StringRegExp($line, "\s*Physical\sAddress[\s\.]*\:\s*((?:(\d{1,2}|[a-fA-F]{1,2}){2})(?::|-*)){6}", 2)

$mac = StringRegExpReplace($macraw[0], "\s*Physical\sAddress[\s\.]*\:\s*", "")

Cheers,

RulerOf

P.S.: I hate regular expressions.

[MrCreatoR]

It's not working on non english system. This works fine on my system^

#include <constants.au3>

$ipconfig = Run(@ComSpec & " /c " & 'ipconfig /all', "", @SW_HIDE, $STDOUT_CHILD)

Local $line = ""

While 1
    $line &= StdoutRead($ipconfig)
    If @error Then ExitLoop
WEnd

$macraw = StringRegExpReplace($line, "(?si).*?\s.*?[\s\.]*: ((?:(?:[a-f\d]{1,2})-?){6}).*", '\1')
ConsoleWrite($macraw & @LF)

[Nu11Byt3]

(?si).*?\s.*?[\s\.]*: ((?:(?:[a-f\d]{1,2})-?){6}).*", '\1')

can anyone explain this for me?

i have read the documentation still i am not getting.

Edited July 3, 2011 by Nu11Byt3

[dmob]

It's not working on non english system. This works fine on my system^

#include <constants.au3>

$ipconfig = Run(@ComSpec & " /c " & 'ipconfig /all', "", @SW_HIDE, $STDOUT_CHILD)

Local $line = ""

While 1
    $line &= StdoutRead($ipconfig)
    If @error Then ExitLoop
WEnd

$macraw = StringRegExpReplace($line, "(?si).*?\s.*?[\s\.]*: ((?:(?:[a-f\d]{1,2})-?){6}).*", '\1')
ConsoleWrite($macraw & @LF)

Your code only returns one. How would you retrieve both wireless & ethernet addresses?