MAC 的實體單一序號如何取得 ? - Excel程式區

[發問] MAC 的實體單一序號如何取得 ?

1^# 跳轉到 »

發表於 2013-4-21 11:39 | 顯示全部帖子

回復 1# Scott090

Sub 抓本機網路卡號碼()
Dim IPConfigSet
' 利用WMI(Windows管理規範)取得NIC資訊
Set IPConfigSet = GetObject("winmgmts:").ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration Where ((IPEnabled = TRUE) And (MacAddress != NULL) And (SettingID != NULL))")
' 列舉查詢結果 (list of NICS)
For Each IPConfig In IPConfigSet
If Not IsNull(IPConfig.IPAddress) Then
MsgBox IPConfig.MACAddress
End If
Next 'IPConfig
End Sub

複製代碼

參考 http://www.dreamincode.net/forums/topic/35609-ipaddress-resolution-in-vb/

diabo

靜思自在 : 要比誰更受誰．不要比誰更怕誰。