Foxtable(狐表)用户栏目专家坐堂 → 谁知道获取电脑网卡MAC地址和计算机名称的语句是什么?


  共有6759人关注过本帖树形打印复制链接

主题:谁知道获取电脑网卡MAC地址和计算机名称的语句是什么?

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/6/29 20:33:00 [显示全部帖子]

 代码

 

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 Convert.ToBoolean(mo("ipEnabled")) = True
        If mo("IPAddress") IsNot Nothing Then          
            MessageBox.Show( mo("IPAddress")(0))
        End If
    End If
Next

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/6/29 20:36:00 [显示全部帖子]

以下是引用hunanwl在2014-6-29 20:27:00的发言:
为什么只能识别到 有线网卡的mac地址呢    无线网卡地址识别不出来啊

 

图片点击可在新窗口打开查看

 

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("macaddress")) = False Then
        If mo.Item("macaddress") <> "" Then
           output.show(mo.Item("macaddress"))
        End If
    End If
Next


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/6/29 21:14:00 [显示全部帖子]

以下是引用hunanwl在2014-6-29 21:03:00的发言:
那如何识别到网卡类型呢

 

Dim nics() As System.Net.NetworkInformation.NetworkInterface = System.Net.NetworkInformation.NetworkInterface.GetAllNetworkInterfaces
For Each nic As object In nics
    output.Show(nic.name)
    output.show(nic.NetworkInterfaceType)
    output.show(nic.Speed / 1000 / 1000 & "MB")
    output.show(nic.GetPhysicalAddress.tostring)
    output.show("----------------")
Next


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/6/29 21:40:00 [显示全部帖子]

以下是引用hunanwl在2014-6-29 21:25:00的发言:
Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE

如何用上面这句查询MAC地址呢,我看有些VB代码是用的这个查询  但是在狐表中运行却提示无法找到Win32_NetworkAdapterConfiguration

 

如果是这种,就需要用7楼的方法


 回到顶部