vb code to query MAC address

Try
            Dim nic As NetworkInterface = Nothing
            Dim mac_Address As String = ""

            For Each nic In NetworkInterface.GetAllNetworkInterfaces

                mac_Address = nic.GetPhysicalAddress().ToString
                If mac_Address <> "" Then
                    txtMac_Address.Text = mac_Address
                End If
            Next
               nic = Nothing
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try

This will query WMI for the mac addresses on the machine. If the computer has multiple network cards or adapters it will return all of the mac addresses.

Save the code as a vbs.

strComputer = "." 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") 
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_NetworkAdapter",,48) 
For Each objItem in colItems 
    Wscript.Echo "-----------------------------------"
    Wscript.Echo "Win32_NetworkAdapter instance"
    Wscript.Echo "-----------------------------------"
    Wscript.Echo "MACAddress: " & objItem.MACAddress
Next

Select allOpen in new window