要取得本機的MAC位置我們可以利用WMI或是.Net framework提供的相關功能來作，例如下面這兩篇

那如果要得知遠端的MAC位址應該怎麼做，雖然可以利用arp的指令並將結果輸出到文字檔，但這樣有點麻煩，找了些參考資料後，我們可以用下面的程式碼來取得
首先是一些參考資料


下面是測試的程式碼

Private Const No_ERROR = 0
 
    <DLLIMPORT("WSOCK32.DLL", ) EntryPoint:="inet_addr" CharSet:="CharSet.Ansi,"> _
    Private Shared Function inet_addr(ByVal s As String) As Integer
    End Function
 
    <DLLIMPORT("IPHLPAPI.DLL", ) EntryPoint:="SendARP" CharSet:="CharSet.Ansi,"> _
    Private Shared Function SendARP(ByVal DestIp As Integer, _
                                    ByVal ScrIP As Integer, _
                                    ByRef pMacAddr As Long, _
                                    ByRef PhyAddrLen As Long) As Integer
    End Function
 
    <DLLIMPORT("KERNEL32.DLL", ) EntryPoint:="RtlMoveMemory" CharSet:="CharSet.Ansi,"> _
    Private Shared Sub CopyMemory(ByVal dst As Byte(), ByRef src As Long, ByVal bcount As Integer)
    End Sub
 
    Private Function GetRemoteMACAddress(ByVal sRemoteIP As String, ByRef sRemoteMacAddress As String) As Boolean
        Dim dwRemoteIp As Integer
        Dim pMacAddr As Long = 0
        Dim bpMacAddr() As Byte
        Dim PhyAddrLen As Long = 0
        Dim cnt As Long
        Dim tmp As String = ""
 
        dwRemoteIp = inet_addr(sRemoteIP)
        If dwRemoteIp <> 0 Then
            PhyAddrLen = 6
            If SendARP(dwRemoteIp, 0&, pMacAddr, PhyAddrLen) = No_ERROR Then
                If pMacAddr <> 0 And PhyAddrLen <> 0 Then
                    ReDim bpMacAddr(0 To PhyAddrLen - 1)
                    CopyMemory(bpMacAddr, pMacAddr, PhyAddrLen)
                    For cnt = 0 To PhyAddrLen - 1
                        tmp &= Hex(bpMacAddr(cnt) + 256).Substring(1, 2) & "-"
                    Next
 
                    If Len(tmp) > 0 Then
                        sRemoteMacAddress = tmp.Substring(0, tmp.Length - 1)
                        GetRemoteMACAddress = True
                    End If
 
                    Exit Function
                Else
                    GetRemoteMACAddress = False
                End If
            Else
                GetRemoteMACAddress = False
            End If
        Else
            GetRemoteMACAddress = False
        End If
    End Function

bauann@dotblog