个人中心
gpt4 book ai didi

vbs Windows系统改变或修改网卡的MAC地址的脚本与软件

转载 作者：qq735679552 更新时间：2022-09-29 22:32:09 28 4
gpt4 key购买 nike

CFSDN坚持开源创造价值，我们致力于搭建一个资源共享平台，让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章vbs Windows系统改变或修改网卡的MAC地址的脚本与软件由作者收集整理，如果你对这篇文章有兴趣，记得点赞哟.

核心代码 。

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
'/*========================================================================= 
' * Intro    网上找了一圈，都不怎么好，有一个比较不错的，汉化作者汉化时加了个自己的介绍文件，这个文件比程序本身还大，感觉不爽，于是本人的VBS版MAC修改代码便诞生了,在使用过程中如果出现不能上网的情况得返回一下网卡驱动（有些机器比较特别），如果要返回以前的MAC可以：开始-->控制面板-->网络连接-->点击您的网卡(一般是"本地连接")-->点击常规里的属性-->配置..-->高级-->选中-->NetworkAddress-->右边选择"不存在" 
' * FileName  ChangeMAC.vbs 
' * Author   yongfa365 
' * Version   v3.0 
' * WEB     http://www.yongfa365.com 
' * Email    yongfa365[at]qq.com 
 
' * MadeTime  2007-12-09 22:17:58 
' * LastModify 2007-12-13 18:35:58 
' *==========================================================================*/ 
  
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject( "winmgmts:\\" & strComputer & "\root\cimv2" ) 
Set colItems = objWMIService.ExecQuery( "Select * from Win32_NetworkAdapterConfiguration where IPEnabled=true" , , 48) 
For Each objItem in colItems 
   msg = msg & "编号：" & objItem.Index & "  MAC：" & objItem.MACAddress & vbCrLf & "网卡：" & objItem.Description & vbCrLf & vbCrLf 
Next
  
idx = InputBox( msg , "1/2请输入您要修改的MAC的编号" , "1" ) 
If Not IsNumeric(idx) Or Len(idx) = 0 Then
   WScript.Echo "编号输入有误，退出"
   Wscript.Quit 
End If
MAC = InputBox( "输入你指定的MAC地址值（注意应该是12位的连续数字或字母，其间没有-、：等分隔符）" , "2/2请输入修改后的MAC地址" , "000000000000" ) 
MAC = Replace(Replace(Replace(MAC, ":" , "" ), "-" , "" ), " " , "" ) 
If RegExpTest( "[^\da-fA-F]" , MAC)>0 Or Len(MAC)<>12 Then
   WScript.Echo "MAC输入有误，退出"
   Wscript.Quit 
End If
  
  
idx = Right( "00000" &idx, 4) 
reg = "HKLM\SYSTEM\CurrentControlSet\Control\ Class \{4D36E972-E325-11CE-BFC1-08002bE10318}\" & idx 
Set WSHShell = CreateObject( "WScript.Shell" ) 
WshShell.RegWrite reg & "\NetworkAddress" , MAC , "REG_SZ"
WshShell.RegWrite reg & "\Ndi\params\NetworkAddress\default" , MAC , "REG_SZ"
WshShell.RegWrite reg & "\Ndi\params\NetworkAddress\ParamDesc" , "NetworkAddress" , "REG_SZ"
WshShell.RegWrite reg & "\Ndi\params\NetworkAddress\optional" , "1" , "REG_SZ"
'得到网卡的名称，比如“本地连接 2” 
NetWorkName = WshShell.RegRead( "HKLM\SYSTEM\ControlSet001\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}\" & WshShell.RegRead(reg & " \NetCfgInstanceId ") & " \Connection\Name") 
  
restartNetWork NetWorkName 
'WScript.Echo "修改成功" 
  
Function restartNetWork(sConnectionName) 
   '重启网卡 
   'sConnectionName = "本地连接 5" '可改成需要控制的连接名称，如"无线网络连接"等 
   '定位到网络连接 
   Set shellApp = CreateObject( "shell.application" ) 
   Set oControlPanel = shellApp. Namespace (3) 
   For Each folderitem in oControlPanel.Items 
     If folderitem.Name = "网络连接" Then
       Set oNetConnections = folderitem.GetFolder 
       Exit For
     End If
   Next
   '定位到要处理的网卡 
   For Each folderitem in oNetConnections.Items 
     If LCase(folderitem.Name) = LCase(sConnectionName) Then
       Set oLanConnection = folderitem 
       Exit For
     End If
   Next
   '重启网卡 
   For i = 1 To 2 
     For Each verb in oLanConnection.verbs 
       If RegExpTest( "启用|禁用|停止" , verb.Name)>0 Then
         verb.DoIt 
         Exit For
       End If
     Next
     '有时网卡半天反应不过来，可以把这个参数设的大点一般程序可以正常运行，或您多运行几次程序 
     WScript.Sleep 5000 
   Next
    
    
End Function
  
  
'正则测试有没有匹配内容 
  
Function RegExpTest(patrn, strng) 
   Set re = New RegExp 
   re.Pattern = patrn 
   re.IgnoreCase = True
   re.Global = True
   Set Matches = re.Execute(strng) 
   RegExpTest = Matches.Count 
End Function

  。

网上相关介绍一： 　　如何修改网卡MAC地址 　　轻松修改网卡的MAC（物理）地址如今大家都是ADSL上网，当你查网费时就会发现，每次上网电信都会记录下你的网卡MAC地址，这是因为IP地址是动态的（每次上网都不同），而MAC地址却是不变的——每张网卡都有一个与众不同的MAC（物理）地址，因此MAC地址就成了客户的网上身份证，通过记录MAC地址，即可确认是你上的网！ 　　1、MAC地址的用途 　　MAC地址在网卡中是固定的，每张网卡的MAC地址都不一样。网卡在制作过程中，厂家会在它的EPROM里面烧录上一组数字，这组数字，每张网卡都各不相同，这就是网卡的MAC（物理）地址。 　　由于MAC地址的唯一性，因此它主要用来识别网络中用户的身份。例如ADSL上网时，电信用它来记费，确认是你上的网；在校园网中，MAC地址也可以用来识别用户。对于校园网的正式用户，其MAC地址会登记在服务器端，假如你是非法用户，服务器中就没有你的网卡MAC地址，这样当你试图连上网时，服务器就会立刻认出你、阻止你连上网络。 　　2、MAC地址是可以修改的 　　有些场合，例如冒充网络中的正式用户，就需要修改你的网卡MAC.要修改MAC地址，你可以通过硬件的方法实现，即利用网卡厂家提供的修改程序来烧录网卡的EEPROM，这样做虽然可行，但是风险很大、操作也复杂，即使你很有经验，也难免在操作中出现错误。 　　其实你完全没必要用烧录方法、修改网卡中的MAC地址。要知道Windows安装的时候，会自动从网卡中读入MAC地址，把它存放在注册表中以备后用。当数据在网络中传输时，从网卡发出的数据包中要求有一个源MAC地址，这个MAC地址就是从注册表中读取的（并非从网卡中读取的），因此只要你修改了注册表中的MAC地址，就相当于改了网卡EEPROM中的MAC地址，两者实际效果是完全相同的！ 　　3、修改注册表中MAC的方法 　　1、使用软件修改 　　本方法适用于所有类型的网卡。在不同的Windows下，要用不同的软件修改MAC. 　　（1）Win2003/XP/2000 　　如果你的系统是Win2003/XP/2000，可以使用SMAC（下载地址http://www.klcconsulting.net/smac/#Download）。这款软件并不能修改网卡中的MAC地址，只能修改注册表中的MAC. 　　该软件有两种运行模式，如果你启用了"Windows Management Instrumentation （WMI）"服务，软件即运行在[WBEM ON]模式下，可以显示更多的网卡信息，否则运行在[WBEM OFF]模式下，在软件窗口标题栏可看到当前运行模式。 　　软件的使用非常简单，运行后点击"Refresh"，窗口中的列表框将显示网卡的类型、IP地址、Active MAC等，在下面六个输入框中输入你指定的MAC地址（图1），然后点击右侧的"Update MAC"，即可修改完成；最后重启电脑使修改值生效。 　　图1 　　注意，试用版不能输入新的MAC地址，只能把MAC改成0C-0C-0C-0C-0C-01 　　（2）Win98 　　如果你的系统是Win98，建议使用"Mac扫描器"，这个工具可以修改注册表中的MAC地址，然后重启电脑使修改生效。 　　2、在网卡属性中修改 　　如果你的网卡采用了RealTek公司的RTL8139芯片，就可以在网卡属性中修改MAC，这样注册表中的MAC地址也会一同改变，方法如下： 　　图2 　　在Win2003/XP/2000中，点击菜单"开始"/设置/控制面板，双击"系统"，点击"硬件"/设备管理器，在设备管理器中展开"网络适配器"，右击要修改MAC地址的网卡，选择"属性"；点击"高级"选项卡，在"属性"下，选择点击Network Address项目（图2），在右侧"值"的下方，输入你要指定的MAC地址值（例如020202020202），注意要连续输入12个数字或字母（中间不要输入-）；重新启动电脑后，修改即可生效。至于Win98下的MAC修改方法，与以上方法类似。 　　如果修改之后，在Win2003/XP/2000 下，你又想把注册表中的MAC地址恢复成原样，可以选择"Network Address"项，将右边的值选择为"不存在"，再重新启动即可；在Win98下是选择"没有显示"。 　　3、在注册表中修改 　　对于非RTL8139芯片的网卡，你可以直接修改注册表中的MAC，注意：修改注册表前，要先备份注册表。 　　（1）Win2003/XP/2000 　　点击"开始"/运行，输入regedit打开注册表，定位到HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Class\{4D36E972-E325-11CE-BFC1-08002BE10318}\0000、0001、0002等主键下，查找DriverDesc的内容，了解网卡使用了哪个主键（例如0001），如果主键下有params项，则该主键也是网卡所使用的； 　　例如网卡使用了0001主键，因此我们就选中它，在其右边建一个字符串项（名为NetworkAddress），双击该串，输入你指定的MAC地址值（注意应该是12位的连续数字或字母，其间没有-号）；在0001下的NDI\params中添加一项子键（名为NetworkAddress），选择该子键，在其右边添加名为default的字符串，键值为修改后的MAC地址，与上面的数值相同；修改后重启生效。 　　（2）Win98 　　点击"开始"/运行，键入winipcfg选择你要修改的网卡，并记录下MAC地址值；然后点击"开始"/运行，输入regedit打开注册表，定位到HKEY_LOCAL_MACHINE\System\Current ControlSet\Services\Class\Net，下面有"0000"、"0001"、"0002"等子键；从"0000"子键开始点击，依次查找子键下的"DriverDesc"键内容，直到找到刚才记录的MAC地址为止； 　　例如网卡使用了0001主键，因此我们就选中它，在其右边新建一个串，名称为networkaddress，再双击该串，输入新的MAC地址值（注意应该是12位的连续数字或字母，其间没有-号）；最后重启电脑使修改生效.

网上有个公开代码的程序，我汉化了一下，下载地址：MACAddressChanger.rar 。

最后此篇关于vbs Windows系统改变或修改网卡的MAC地址的脚本与软件的文章就讲到这里了,如果你想了解更多关于vbs Windows系统改变或修改网卡的MAC地址的脚本与软件的内容请搜索CFSDN的文章或继续浏览相关文章，希望大家以后支持我的博客！ 。

28 4 0
文章推荐： 让IIS建立的站点默认是.net 2.0的,而不是.net 1.1的代码
文章推荐： 格式化是什么意思 格式化与快速格式化及正常格式化的区别
文章推荐： Mysql常用命令 详细整理版
文章推荐： Linux下的Apache与PHP安全设置技巧
qq735679552
个人简介

我是一名优秀的程序员,十分优秀！

滴滴打车优惠券免费领取
滴滴打车优惠券
全站热门文章
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com