VBS修改本地连接MAC地址

最新推荐文章于 2019-02-16 16:09:08 发布

zengbin3013

最新推荐文章于 2019-02-16 16:09:08 发布

阅读量1.9k

点赞数

分类专栏： VBS 文章标签： function each

本文链接：https://blog.csdn.net/zengbin3013/article/details/6148720

版权

这篇博客介绍了如何使用Visual Basic Script (VBS)来修改计算机中名为'本地连接'的网络适配器的MAC地址。通过查询Win32_NetworkAdapter类获取网卡硬件ID，然后通过注册表进行MAC地址的修改。用户需确保网络连接名称正确，修改完成后需重启网卡以使新MAC地址生效。

摘要由CSDN通过智能技术生成

call changeMAC '调用修改MAC过程 sub changeMAC() strConnection="本地连接" '需要修改的MAC连接名称 strMAC="000000000206" '需要的MAC地址 dim i '用于检测是否存在名称为"本地连接"的网卡 dim iDevID '网卡的硬件ID i=0 '查询名称为“本地连接”的网卡的硬件ID strComputer = "." Set objWMIService = GetObject("winmgmts://" & strComputer & "/root/CIMV2") Set colItems = objWMIService.ExecQuery("SELECT DeviceID FROM Win32_NetworkAdapter where NetConnectionID='"& strConnection &"'",,48) For Each objItem in colItems i=i+1 iDevID=objItem.DeviceID Next if i<1 then msgbox "请确认是否将所需网卡名称改为“" & strConnection & "”" msgbox "更改MAC地址失败" exit sub end if '通过注册表修改MAC地址 on error