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


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

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

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


加好友 发短信
等级:四尾狐 帖子:822 积分:5948 威望:0 精华:0 注册:2012/10/24 15:01:00
谁知道获取电脑网卡MAC地址和计算机名称的语句是什么?  发帖心情 Post By:2013/5/3 19:13:00 [只看该作者]

如题!

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/5/4 9:23:00 [只看该作者]

 Dim nics() As System.Net.NetworkInformation.NetworkInterface = System.Net.NetworkInformation.NetworkInterface.GetAllNetworkInterfaces
        messagebox.show(nics(0).GetPhysicalAddress.Tostring) '获得MAC地址
       messagebox.show(Environment.MachineName) '获得计算机名称
[此贴子已经被作者于2013-5-4 9:23:40编辑过]

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


加好友 发短信
等级:等待验证 帖子:3855 积分:20692 威望:0 精华:5 注册:2012/6/21 14:03:00
  发帖心情 Post By:2013/5/4 9:24:00 [只看该作者]

用户已被锁定

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


加好友 发短信
等级:四尾狐 帖子:822 积分:5948 威望:0 精华:0 注册:2012/10/24 15:01:00
  发帖心情 Post By:2013/5/4 10:15:00 [只看该作者]

谢谢!

和ComputerID 结合,应该能很好的控制那些电脑可以进入程序!

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


加好友 发短信
等级:一尾狐 帖子:447 积分:3759 威望:0 精华:0 注册:2012/12/9 8:52:00
  发帖心情 Post By:2014/6/29 20:27:00 [只看该作者]

为什么只能识别到 有线网卡的mac地址呢    无线网卡地址识别不出来啊

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | 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


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


加好友 发短信
等级:一尾狐 帖子:447 积分:3759 威望:0 精华:0 注册:2012/12/9 8:52:00
  发帖心情 Post By:2014/6/29 21:03:00 [只看该作者]

那如何识别到网卡类型呢

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | 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


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


加好友 发短信
等级:一尾狐 帖子:447 积分:3759 威望:0 精华:0 注册:2012/12/9 8:52:00
  发帖心情 Post By:2014/6/29 21:25:00 [只看该作者]

Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE

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

 回到顶部
总数 11 1 2 下一页