Revisiting an old thread of Mac Address

[MikeData]

http://msgboard.alphasoftware.com/al...ht=mac+address

This thread from a long time ago, talks about mac address and mentions the usegetmachine.
In the A5 manual I only found one reference, api_getmachinename() but it only returns the name.

Is there a function to retrieve the mac address directly into Alpha?
If we have to use the information from such file like ipinfo.txt, how to bring into Alpha? (this file was created in above thread under a .bat file)

[aschone]

Re: Revisiting an old thread of Mac Address

This may go above and beyond what you want to do. If you know where the registry entry is for you particular machine you could read the value straight out of the registry.

Another approach would be to use a VB Script to enumerate the network adapters and write the data to a file. Alpha5 then reads the file into a variable for future parsing. I like this approach better because it should enumerate 100% of all network adapters and report their MAC address. The hard part is to narrow down which adapter's info you want to work with

OPTION STRICT
OPTION ENCRYPTED_TOKENS
ON ERROR GOTO ERR_HANDLER

DIM vVBScriptC as C
DIM vVB_OutputFileC as C
DIM vVB_ScriptFileC as C
DIM vResultC as C

vVB_OutputFileC = a5.get_path()+chr(92)+"Mac.txt"
vVB_ScriptFileC = a5.get_path()+chr(92)+"Mac.vbs"

if file.exists(vVB_ScriptFileC)
	file.remove(vVB_ScriptFileC)
end if

if file.exists(vVB_OutputFileC)
	file.remove(vVB_OutputFileC)
end if

vVBScriptC = <<%a%
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery _
    ("Select * from Win32_NetworkAdapterConfiguration")

set oFS = WScript.CreateObject("Scripting.FileSystemObject")
set oTF = oFS.CreateTextFile("%a%

vVBScriptC = vVBScriptC + vVB_OutputFileC+<<%a%
")
For Each objItem in colItems
    oTF.WriteLine("Caption: " & objItem.Caption)
    oTF.WriteLine("Mac: " & objItem.MACAddress)
    oTF.WriteLine("")
next

oTF.close()
%a%
file.from_string(vVB_ScriptFileC,vVBScriptC)
sys_shell_wait("wscript.exe " + vVB_ScriptFileC)
if file.exists(vVB_OutputFileC) then
    vResultC = file.to_string(vVB_OutputFileC)
else
	vResultC = ""
end if

ui_msg_box("",vResultC)

END
'-----------------------------------
'Error handler
'-----------------------------------
ERR_HANDLER:
	Dim err as N= error_code_get()
	Dim msg as C= "Error # "+ err + crlf() + error_text_get(err)
	msg = msg + crlf() + "Script: " + error_script_get()
	msg = msg + crlf() + "Line #: " + error_line_number_get()

	trace.writeln(msg)

	ui_msg_box("Error", msg, ui_attention_symbol)
	msg = ""
	
	END

Example of results
VBScript

Caption: [00000001] RAS Async Adapter
Mac: 20:41:53:59:4E:FF

Caption: [00000002] WAN Miniport (L2TP)
Mac: 

Caption: [00000003] WAN Miniport (PPTP)
Mac: 50:50:54:50:30:30

Caption: [00000004] WAN Miniport (PPPOE)
Mac: 33:50:6F:45:30:30

Caption: [00000005] Direct Parallel
Mac: 

Caption: [00000006] WAN Miniport (IP)
Mac: 

Caption: [00000007] Packet Scheduler Miniport
Mac: D8:10:20:52:41:53

Caption: [00000008] Realtek RTL8168C(P)/8111C(P) PCI-E Gigabit Ethernet NIC
Mac: 00:21:9B:17:EC:BC

Caption: [00000009] Packet Scheduler Miniport
Mac: 00:21:9B:17:EC:BC

Batch File:

        Physical Address. . . . . . . . . : 00-21-9B-17-EC-BC