vb.net取网卡名称 vb禁用网卡

在asp.net和vb.net中怎样提取mac 网卡地址？急~

暂时不知道vb.net取网卡名称，但是我觉得要是能解决vb.net取网卡名称的话就不会有那么多IP策略vb.net取网卡名称了

相关问答

Q1: vb.net 获取指定网卡的网络连接状态

.net不能获得【指定】网卡的信息，给个思路，先遍历所有网卡，然后找到你需要的的那个网卡的信息。

Q2: 电脑有两张网卡。如何用vb.net分别获取网卡的IP?求大神明路！

'要使得引用System.Management有效，先通过菜单

'[项目]--[添加引用]，在“.Net”选项卡里，选择“System.Management”，单击[确定]

Imports System.Management

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim MySearcher As New ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration")

For Each MySearcherObj As ManagementObject In MySearcher.Get

If CBool(MySearcherObj("IPEnabled")) Then

MsgBox(MySearcherObj("IPAddress")(0))

End If

Next

End Sub

End Class

Q3: vb.net 获取局域网计算机的当前用户名和计算机型号等信息

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private Sub GetName()

Dim sJM As String

Dim sMC As String

Dim sIP As String

Dim s As String

s = String(128, Chr(0))

GetComputerName s, Len(s)

s = UCase(Left(s, InStr(1, s, Chr(0)) - 1))

sJM = s'计算机名称

s = String(128, Chr(0))

GetUserName s, Len(s)

s = UCase(Left(s, InStr(1, s, Chr(0)) - 1))

sMC = s‘当前用户名称

End Sub

'用这种方法在远程获得再发回本机就可以吧

'取计算机型号暂时不会

Q4: vb.net 如何获取指定IP的网卡地址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

Q5: 求大神指点 vb.net 怎么获取 所有网卡的 描述呢? vbs 的也可以

Private Sub GetMyIP()

        Dim strComputer As String

        Dim objWMI As Object

        Dim colIP As Object

        Dim IP As Object

        Dim I As Integer

        strComputer = "."

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

        colIP = objWMI.ExecQuery _

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

        For Each IP In colIP

            If Not IsNothing(IP.IPAddress) Then

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

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

                    "网卡类型:"  IP.Description(I)  Chr(10)  _

                    "网卡地址:"  IP.Macaddress(I))

                Next

            End If

        Next

    End Sub

vb.net取网卡名称的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb禁用网卡、vb.net取网卡名称的信息别忘了在本站进行查找喔。