2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2013-4-20 12:12 | 只看該作者

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

MAC 序號真的是全球唯一號碼嗎? 是否製造商會把同一批產品用同一序號?
MAC 序號會在註冊表內被變更，那真正的實體(硬體) 的序號要如何取得，避免讀取到的是註冊表內的?

謝謝先進指導

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

4^#

發表於 2013-5-31 06:21 | 只看該作者

"這個程式取得的是註冊表內的還是物理實體序號?"
或者另有高招能取得並確認物理實體序號或分別出註冊表內已被改過的 MAC 碼

這個問題懸著，不知哪位大師願意指點
謝謝

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

3^#

發表於 2013-4-22 07:56 | 只看該作者

回復 2# diabo

謝謝寶貴的指導
其中 IPEnabled = true 是代表有連線還是只要有網卡註冊?
這個程式取得的是註冊表內的還是物理實體序號?

再次謝謝

2^#

發表於 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