ลองค้นกระทู้เก่าด้วยคำว่า MAC นะครับ รู้สึกว่าจะมี แต่อยากให้ข้อสังเกตหน่อยว่า ถ้าคุณมี network device มากกว่า 1 ตัวในคอมพิวเตอร์หล่ะ คุณจะใช้ตัวไหน แล้วทุกครั้งที่เรียกฟังก์ชั่นที่หา MAC Address มันจะให้ค่าเดิมตลอดหรือไม่

เขียนฟังก์ชั่น VBA รูปแบบย่อๆที่เค้าใช้กันใน VBScript แบบนี้ครับ

1. เฉพาะอุปกรณ์ที่มีการเชื่อมต่อเท่านั้น (คือมีเลข IP Address เท่านั้น)
------------------------------------------------------------------------
Function getMacAddress() As String
    Dim objNetwork As Object
    Dim strNetworkSql As String
    Dim strMacAdr As String
    strNetworkSql = "SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True"
    For Each objNetwork In GetObject("winmgmts:").ExecQuery(strNetworkSql)
        If strMacAdr & "" = "" Then
            strMacAdr = "MAC Address = " & objNetwork.MACAddress
        Else
            strMacAdr = "MAC Address = " & objNetwork.MACAddress
        End If
    Next
    getMacAddress = strMacAdr
End Function
------------------------------------------------------------------------

2 MAC Address ทุกอุปกรณ์เชื่อมต่อที่มีในเครื่องทั้งหมด เช่น การ์ดแลน, wireless lan, Bluetooth เป็นต้น
------------------------------------------------------------------------
Function getMacAddress() As String
    Dim objNetwork As Object
    Dim strNetworkSql As String
    Dim strMacAdr As String
    strNetworkSql = "SELECT * FROM Win32_NetworkAdapter WHERE MACAddress IS NOT NULL"
    For Each objNetwork In GetObject("winmgmts:").ExecQuery(strNetworkSql)
        If strMacAdr & "" = "" Then
            strMacAdr = "Caption = " & objNetwork.Caption & vbCrLf & "MAC Address = " & objNetwork.MACAddress
        Else
            strMacAdr = strMacAdr & vbCrLf & "Caption = " & objNetwork.Caption & vbCrLf & "MAC Address = " & objNetwork.MACAddress
        End If
    Next
    getMacAddress = strMacAdr
End Function
------------------------------------------------------------------------
ปรับใช้ดูครับ