VBS修改本地连接MAC地址

最新推荐文章于 2020-08-13 10:13:16 发布

原创最新推荐文章于 2020-08-13 10:13:16 发布 · 1.9k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#function #each

VBS 专栏收录该内容

1 篇文章

订阅专栏

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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 resume next Set WSHShell=WScript.CreateObject("WScript.Shell") strDevID=formatDevID(iDevID) strNetReg="HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Control/Class/{4D36E972-E325-11CE-BFC1-08002bE10318}/" & strDevID & "/NetworkAddress" r=WSHShell.regRead(strNetReg) if err.number=-2147024894 then WSHShell.regWrite strNetReg,strMAC msgbox "新建成功"&chr(10)&chr(13)&"重启网卡生效！" else WSHShell.regWrite strNetReg,strMAC msgbox "修改成功"&chr(10)&chr(13)&"重启网卡生效！" end if end sub '格式化网卡ID号 function formatDevID(iDevID) if iDevID<10 then formatDevID="000" & iDevID elseif iDevID>=10 and iDevID<100 then formatDevID="00" & iDevID else formatDevID="0" & iDevID end if end function