ve VBS to jde jednoduse takto pres VMI taky:

Dim MAC (1 to 1)
strComputer = "."
Set WMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set NetAdapters = WMIService.ExecQuery ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
Set WshShell = WScript.CreateObject("WScript.Shell")


Sub All_MACs

For Each Item in NetAdapters
ReDim MAC (0 to i+1)
MAC(i) =Item.MacAddress
i=i+1
end sub