Private Sub Form_Load()

Dim Mac

strComputer = .

Mac =

'获得MAC信息

Set objWMIService = GetObject(winmgmts: & {impersonationLevel=impersonate}!// & strComputer & /root/cimv2)'''加上这个

Set colItems = objWMIService.ExecQuery(Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE)

For Each objItem In colItems

Mac = Mac + + objItem.macaddress

Next

TeMac.Text = Replace(Trim(Mac), :, -)

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)

'Mac = Ip.macaddress(I)objObject.DNSHostName

If Ip.ipaddress(i) = 0.0.0.0 Then

Else

TeIp.Text = Trim(TeIp.Text + + Ip.ipaddress(i))

End If

'MsgBox IP 地址: & IP.ipaddress(I) & Chr(10) & _

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

网卡地址: & IP.macaddress(I)

Next

End If

Next

End Sub

取消

评论

vb读取计算机mac地址,用VB获取MAC地址相关推荐

  1. 大学计算机二级考试 vb,大学计算机二级考试常用vb代码.docx

    文档介绍: 大学计算机二级考试常用vb代码.docx参考代码如下:mand1_Click()Textl.Text=""IfCheckl.Value=1ThenTextl.Text= ...

  2. php获取手机的mac地址,Android手机获取Mac地址的方法

    [导读]这篇文章主要为大家详细介绍了Android手机获取Mac地址的方法,具有一定的参考价值 最常用的方法,通过WiFiManager获取:/** * 通过WiFiManager获取mac地址 *  ...

  3. 江苏计算机二级vb,江苏省计算机等级考试二级vb.ppt

    <江苏省计算机等级考试二级vb.ppt>由会员分享,可在线阅读,更多相关<江苏省计算机等级考试二级vb.ppt(37页珍藏版)>请在人人文库网上搜索. 1.江苏省二级VB考试概 ...

  4. android 4g获取mac地址,Android手机获取Mac地址的几种方法

    最常用的方法,通过WiFiManager获取: /** * 通过WiFiManager获取mac地址 * @param context * @return */ private static Stri ...

  5. android 取mac地址,Android手机获取Mac地址的几种方法,androidmac

    Android手机获取Mac地址的几种方法,androidmac 最常用的方法,通过WiFiManager获取: /** * 通过WiFiManager获取mac地址 * @param context ...

  6. 闽高校计算机等级考试vb选择题,计算机等级考试二级VB程序设计选择题

    不论从事何种工作,如果要想做出高效.实效,务必先从自身的工作计划开始.有了计划,才不致于使自己思想迷茫.头脑空洞,不知从哪里着手开展工作.下面是小编搜索整理的计算机等级考试二级VB程序设计选择题,供大 ...

  7. 计算机自动配置的ip地址,电脑自动获取IP地址的设置方法(图文)

    在我们使用电脑的过程中,有时候需要根据网络的需求将电脑IP地址设置为自动获取,对网络知识不太了解的朋友遇到此类问题可能不知道怎么去设置,在此小编总结了有关电脑设置自动获取IP地址的相关方法,感兴趣的朋 ...

  8. Java获取IP地址和VUE获取IP地址。

    java 获取 IP String ip = "";String address = "";try {// 获取IP地址ip = InetAddress.get ...

  9. android 逆地址,Android高德获取逆地址编码(经纬度坐标-地址描述如省市区街道)

    Android高德获取逆地址编码(经纬度坐标-地址描述如省市区街道) 可以在非地图视图下直接获取,只要传入当前位置的经纬度 当然也可以在地图模式下获取详细信息 在非第三方地图集成下(系统自带功能)获取 ...

  10. html 获取电脑ip地址,笔记本自动获取ip地址怎么设置?

    问:笔记本自动获取ip地址怎么设置? 答:笔记本电脑IP地址设置为自动获取的方法,其实并不复杂,只需要找到.打开"网络连接"选项,在该选项下打开"本地连接"或者 ...

最新文章

  1. 数据结构与算法——AVL树类的C++实现
  2. solaris下使用USB 海量存储设备
  3. hdu 4607 Park Visit 求树的直径
  4. 结转本年利润的有关分录
  5. CodeForces - 1437E Make It Increasing(确定首尾的最长不下降子序列)
  6. oracle调用存储过程和函数返回结果集
  7. centos6实现kvm嵌套虚拟化
  8. logincontroller.java_ucenter整合java项目,注册问题
  9. 蓝桥杯2015初赛-三羊献瑞-枚举
  10. velocity自定义函数_velocity基本语法和总结
  11. stats | 广义线性模型(二)——泊松回归
  12. html两行中间间距怎么去,css行之间的间距怎么调?
  13. wine linux 目录,linux中wine的安装及使用
  14. dat图片 电脑端微信_写了一个电脑版微信的dat图片转换器
  15. 金标股份冲刺A股上市:计划募资约6亿元,许光荣为董事长
  16. 读书笔记:《狼图腾》
  17. 第四部分、JEECG-BOOT 微服部署文档
  18. 中国量子计算机的运算速度是,中国量子计算机问世,运算速度碾压顶级超算,美国:时代变了...
  19. dau、mau、pcu、dnu、wau、acu、uv的意思是什么?怎么分析?
  20. vue svg弧线路线动画组件

热门文章

  1. java中的向上取整和向下取整
  2. 一篇奶妈级HTML学习笔记
  3. 公司考勤系统 功能和代码
  4. 快速手机打字的诀窍是什么?
  5. linux 下创建和删除软连接
  6. 使用麦克风和Arduino测量噪音水平(以dB为单位)
  7. 深度学习中的激活函数(一)
  8. java求三角形周长 面积_Java代码计算三角形的周长和面积
  9. 分布式之Docker
  10. 预告片场网(最新电影预告片)--希望能在今年春节后正式上线!