vb點虐 怎么獲取網(wǎng)卡MAC地址？

Public Function EnumNetworkAdapters() As String

成都創(chuàng)新互聯(lián)主要從事網(wǎng)站建設(shè)、成都網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務(wù)。立足成都服務(wù)東源,10多年網(wǎng)站建設(shè)經(jīng)驗,價格優(yōu)惠、服務(wù)專業(yè),歡迎來電咨詢建站服務(wù):028-86922220

Try

Dim query As System.Management.ManagementObjectSearcher = New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration")

Dim queryCollection As System.Management.ManagementObjectCollection = query.Get()

Dim mo As New System.Management.ManagementObject

For Each mo In queryCollection

If IsDBNull(mo.Item("Description")) = False Then

EnumNetworkAdapters = mo.Item("Description") "|||"

End If

If IsDBNull(mo.Item("macaddress")) = False Then

If mo.Item("macaddress") "" Then

EnumNetworkAdapters = mo.Item("macaddress") "|||"

End If

End If

If IsDBNull(mo.Item("IPAddress")) = False Then

Dim temp As String

temp = Join(mo.Item("IPAddress"), ".")

If temp "" Then

EnumNetworkAdapters = temp "|||"

End If

End If

Next

Catch err A* **ception

EnumNetworkAdapters = err.Message err.StackTrace

End Try

End Function

vb點虐 獲取本地連接的mac地址

Private Sub Form_Load()

Dim strComputer As String

Dim objWMI As Object

Dim colIP As Object

Dim IP As Object

Dim I As Integer

strComputer = "."

Set objWMI = GetObject("winmgmts://" strComputer "/root/cimv2")

Set colIP = objWMI.ExecQuery _

("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

For Each IP In colIP

If Not IsNull(IP.IPAddress) Then

For I = LBound(IP.IPAddress) To UBound(IP.IPAddress)

MsgBox "IP地址:" IP.IPAddress(I) Chr(10) _

"網(wǎng)卡類型:" IP.Description(I) Chr(10) _

"網(wǎng)卡地址:" IP.Macaddress(I)

Next

End If

Next

End Sub

vb點虐 改端口物理地址怎么查

1、點擊右側(cè)的網(wǎng)絡(luò)連接，在彈出的對話框中點擊打開網(wǎng)絡(luò)和共享中心。

2、在網(wǎng)絡(luò)和共享中心界面中點擊更改適配器設(shè)置。

3、進入網(wǎng)絡(luò)連接界面，右鍵本地連接。

4、在彈出的菜單中選擇屬性。

5、在本地連接屬性界面中點擊配置按鈕。

6、切換到高級選項卡，在屬性列表中找到并點擊網(wǎng)絡(luò)地址，在右側(cè)輸入修改后的網(wǎng)絡(luò)地址，點擊確定按鈕。

7、使用命令提示符，輸入Ipconfig-all，可以查看修改后的物理地址。

vb點虐 如何獲取指定IP的網(wǎng)卡地址MAC

Public Function EnumNetworkAdapters() As String

Try

Dim query As System.Management.ManagementObjectSearcher = New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration")

Dim queryCollection As System.Management.ManagementObjectCollection = query.Get()

Dim mo As New System.Management.ManagementObject

For Each mo In queryCollection

If IsDBNull(mo.Item("Description")) = False Then

EnumNetworkAdapters = mo.Item("Description") "|||"

End If

If IsDBNull(mo.Item("macaddress")) = False Then

If mo.Item("macaddress") "" Then

EnumNetworkAdapters = mo.Item("macaddress") "|||"

End If

End If

If IsDBNull(mo.Item("IPAddress")) = False Then

Dim temp As String

temp = Join(mo.Item("IPAddress"), ".")

If temp "" Then

EnumNetworkAdapters = temp "|||"

End If

End If

Next

Catch err AS Exception

EnumNetworkAdapters = err.Message err.StackTrace

End Try

End Function