[SOLVED] get MAC address (W7:yes/wXP:no)

[Wombat]

The code works on windows 7 but not on XP... why so?

expandcollapse popup

#include <File.au3>

Global $sIP, $MAs

$Station=InputBox("Workstation", "enter the workstation", "")

_GetMACFromIP($sIP)
Local $text = StringReplace($MAs, "-", "")
IniWrite(@ScriptDir & "\MAC.ini", "mac_addresses", $Station, $text)


Func _GetMACFromIP($sIP)
    Local $MAC,$MACSize
    Local $MAi,$MAr

;Create the struct
$MAC        = DllStructCreate("byte[6]")

;Create a pointer to an int
$MACSize    = DllStructCreate("int")

;*MACSize = 6;
DllStructSetData($MACSize,1,6)

;call inet_addr($sIP)
$MAr = DllCall ("Ws2_32.dll", "int", "inet_addr", _
                "str", $sIP)
$iIP = $MAr[0]

;Make the DllCall
$MAr = DllCall ("iphlpapi.dll", "int", "SendARP", _
                "int", $iIP, _
                "int", 0, _
                "ptr", DllStructGetPtr($MAC), _
                "ptr", DllStructGetPtr($MACSize))

;Format the MAC address into user readble format: 00:00:00:00:00:00
$MAs    = ""
For $MAi = 0 To 5
    If $MAi Then $MAs = $MAs & "-"
        $MAs = $MAs & Hex(DllStructGetData($MAC,1,$MAi+1),2)
Next

;Return the user readble MAC address
    Return $MAs
EndFunc

Resolved by using this code instead:

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Outfile=MAG.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <WinAPI.au3>
#include <File.au3>


$IPDetails=_IPDetails()
$Station=InputBox("Workstation", "enter the workstation", "")
Local $text = StringReplace($IPDetails[1], ":", "")
IniWrite(@ScriptDir & "\MAC.ini", "mac_addresses", $Station, $text)

Func _IPDetails()
    Local $oWMIService = ObjGet("winmgmts:{impersonationLevel = impersonate}!\\" & "." & "\root\cimv2")
    Local $oColItems = $oWMIService.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True", "WQL", 0x30), $aReturn[5] = [4]
    If IsObj($oColItems) Then
        For $oObjectItem In $oColItems
            If $oObjectItem.IPAddress(0) == @IPAddress1 Then
                $aReturn[1] = $oObjectItem.MACAddress
                $aReturn[2] = $oObjectItem.DefaultIPGateway(0)
            EndIf
        Next
        Return $aReturn
    EndIf
    Return SetError(1, 0, $aReturn)
EndFunc   ;==>_IPDetails

Edited November 25, 2013 by Wombat

[Gianni]

anyway.... if you want to use first script

change

$Station=InputBox("Workstation", "enter the workstation", "")

with

$sIP=InputBox("Workstation", "enter the workstation", "")

 

[kudrow]

 

The code works on windows 7 but not on XP... why so?

expandcollapse popup

#include <File.au3>

Global $sIP, $MAs

$Station=InputBox("Workstation", "enter the workstation", "")

_GetMACFromIP($sIP)
Local $text = StringReplace($MAs, "-", "")
IniWrite(@ScriptDir & "\MAC.ini", "mac_addresses", $Station, $text)


Func _GetMACFromIP($sIP)
    Local $MAC,$MACSize
    Local $MAi,$MAr

;Create the struct
$MAC        = DllStructCreate("byte[6]")

;Create a pointer to an int
$MACSize    = DllStructCreate("int")

;*MACSize = 6;
DllStructSetData($MACSize,1,6)

;call inet_addr($sIP)
$MAr = DllCall ("Ws2_32.dll", "int", "inet_addr", _
                "str", $sIP)
$iIP = $MAr[0]

;Make the DllCall
$MAr = DllCall ("iphlpapi.dll", "int", "SendARP", _
                "int", $iIP, _
                "int", 0, _
                "ptr", DllStructGetPtr($MAC), _
                "ptr", DllStructGetPtr($MACSize))

;Format the MAC address into user readble format: 00:00:00:00:00:00
$MAs    = ""
For $MAi = 0 To 5
    If $MAi Then $MAs = $MAs & "-"
        $MAs = $MAs & Hex(DllStructGetData($MAC,1,$MAi+1),2)
Next

;Return the user readble MAC address
    Return $MAs
EndFunc

Resolved by using this code instead:

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Outfile=MAG.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <WinAPI.au3>
#include <File.au3>


$IPDetails=_IPDetails()
$Station=InputBox("Workstation", "enter the workstation", "")
Local $text = StringReplace($IPDetails[1], ":", "")
IniWrite(@ScriptDir & "\MAC.ini", "mac_addresses", $Station, $text)

Func _IPDetails()
    Local $oWMIService = ObjGet("winmgmts:{impersonationLevel = impersonate}!\\" & "." & "\root\cimv2")
    Local $oColItems = $oWMIService.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True", "WQL", 0x30), $aReturn[5] = [4]
    If IsObj($oColItems) Then
        For $oObjectItem In $oColItems
            If $oObjectItem.IPAddress(0) == @IPAddress1 Then
                $aReturn[1] = $oObjectItem.MACAddress
                $aReturn[2] = $oObjectItem.DefaultIPGateway(0)
            EndIf
        Next
        Return $aReturn
    EndIf
    Return SetError(1, 0, $aReturn)
EndFunc   ;==>_IPDetails

 

None of these scripts work on windows 8, any suggestion?

Thanks!

[MikahS]

What is the error you are receiving or are you getting nothing in the mac.ini?

[kudrow]

The only time I get the mac address is using "localhost" as the machine name. If I use and IP or other computer name it returns nothing.

No errors though.

Edited October 10, 2014 by kudrow

[BrewManNH]

Where in your script are you trying the IP address or computer name? Which one of the 2 scripts you quoted are you using?

Please post your script if you've changed either of those.