MAC address

[Matthew]

Is it possible to get the MAC address (hardware ID) of a PC using QM?

Thanks kindly
Matt

[Gintaras]

Macro get MAC address

Code:

Copy      Help

str computerName="" ;;this computer
;str computerName="ComputerName"
;str computerName="www.quickmacros.com" ;;this does not work for me, always gets 00 1B 21 75 AB 5A, or fails on other computer, maybe it is because of firewall

dll iphlpapi #SendARP DestIP SrcIP !*pMacAddr *PhyAddrLen

str ipSrc ipDst
;if(!GetIpAddress("" &ipSrc)) end "failed"
if(!GetIpAddress(computerName &ipDst)) end "unknown computer"
;out ipSrc
;out ipDst

str MAC.all(8); _i=8
;int e=SendARP(inet_addr(ipDst) inet_addr(ipSrc) MAC &_i)
int e=SendARP(inet_addr(ipDst) 0 MAC &_i)
if(e) end _s.dllerror("failed." "" e)
MAC.fix(_i)
MAC.encrypt(8 MAC "" 1)
out MAC

Macro GetAdaptersInfo (same as ipconfig)

Code:

Copy      Help

out

ARRAY(WINAPI2.IP_ADAPTER_INFO) AdapterInfo.create(16)
WINAPI2.IP_ADAPTER_INFO* pAdapterInfo = &AdapterInfo[0]
int dwBufLen = AdapterInfo.len*sizeof(WINAPI2.IP_ADAPTER_INFO)

int dwStatus = WINAPI2.GetAdaptersInfo(pAdapterInfo &dwBufLen)
if(dwStatus) end "failed"

lpstr adapterName IP description
str MAC
rep
,adapterName=&pAdapterInfo.AdapterName
,out F"adapterName: {adapterName}"
,
,description=&pAdapterInfo.Description
,out F"description: {description}"
,
,
,MAC.fromn(&pAdapterInfo.Address pAdapterInfo.AddressLength)
,MAC.encrypt(8)
,out F"MAC: {MAC}"
,
,IP=&pAdapterInfo.IpAddressList.IpAddress
,out F"IP: {IP}"
,
,out "----------"
,
,pAdapterInfo = pAdapterInfo.Next
,if(!pAdapterInfo) break

[Matthew]

Brilliant!
Thankyou!