Dim searcher As New System.Management.ManagementObjectSearcher("select * from win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
Dim moc2 As System.Management.ManagementObjectCollection = searcher.Get()
For Each mo As System.Management.ManagementObject In moc2
Dim pde As System.Management.PropertyDataCollection.PropertyDataEnumerator = mo.Properties.GetEnumerator()
If mo("IPEnabled") Then
netid = mo("MACAddress")
ip = mo("IpAddress")(0)
mactp = mo("Description")
'Exit For
If mactp.Contains("PCI") Then
mactp = "有線網卡:"
ElseIf mactp.Contains("Wi") Then
mactp = "無線網卡:"
End If
mac += mactp & " " & netid & " "
End If
Next
只有網卡開啟的時候可以獲取,禁用的網卡就沒有辦法獲取.
uj5u.com熱心網友回復：
WMI可以被欺騙。uj5u.com熱心網友回復：
Dim searcher As New System.Management.ManagementObjectSearcher("select * from win32_NetworkAdapterConfiguration where IPEnabled=TRUE")Dim moc2 As System.Management.ManagementObjectCollection = searcher.Get()
For Each mo As System.Management.ManagementObject In moc2
Dim pde As System.Management.PropertyDataCollection.PropertyDataEnumerator = mo.Properties.GetEnumerator()
If mo("IPEnabled") Then
netid = mo("MACAddress")
ip = mo("IpAddress")(0)
mactp = mo("Description")
'Exit For
If mactp.Contains("PCI") Then
mactp = "有線網卡:"
ElseIf mactp.Contains("Wi") Then
mactp = "無線網卡:"
End If
mac += mactp & " " & netid & " "
End If
Next
洗掉紅色部分
uj5u.com熱心網友回復：
可以通過訪問注冊表來獲得禁用或未連接的物理網卡地址uj5u.com熱心網友回復：
哈哈，3樓看的真仔細。uj5u.com熱心網友回復：
我以前試過要讀取被禁用的網卡的mac，不管是讀取注冊表 或查wmi還是讀api, 基本上中英文的資料都找了，可以確定無法實作uj5u.com熱心網友回復：
查詢注冊表就知道了。轉載請註明出處，本文鏈接：https://www.uj5u.com/net/60532.html
標籤：VB.NET
下一篇：ASP.NET制作音樂網站