如何利用万能软件修改网卡MAC？

mmgg520

如何利用万能软件修改网卡MAC？

方法，点VBS执行，
运行这段代码：

1. call changeMAC    '调用修改MAC过程  
   
2.   
   
3. sub changeMAC()  
   
4.     strConnection="本地连接"     '需要修改的MAC连接名称  
   
5.     strMAC="000000000206"        '需要的MAC地址  
   
6.     dim i                        '用于检测是否存在名称为"本地连接"的网卡  
   
7.     dim iDevID                   '网卡的硬件ID  
   
8.     i=0  
   
9.   
   
10.     '查询名称为“本地连接”的网卡的硬件ID  
    
11.     strComputer = "."   
    
12.     Set objWMIService = GetObject("winmgmts://" & strComputer & "/root/CIMV2")   
    
13.     Set colItems = objWMIService.ExecQuery("SELECT DeviceID FROM Win32_NetworkAdapter where NetConnectionID='"& strConnection &"'",,48)   
    
14.     For Each objItem in colItems  
    
15.         i=i+1  
    
16.         iDevID=objItem.DeviceID  
    
17.     Next  
    
18.     if i<1 then  
    
19.         msgbox "请确认是否将所需网卡名称改为“" & strConnection & "”"  
    
20.         msgbox "更改MAC地址失败"  
    
21.         exit sub  
    
22.     end if  
    
23.   
    
24.     '通过注册表修改MAC地址  
    
25.     on error resume next  
    
26.     Set WSHShell=WScript.CreateObject("WScript.Shell")  
    
27.     strDevID=formatDevID(iDevID)  
    
28.     strNetReg="HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Control/Class/{4D36E972-E325-11CE-BFC1-08002bE10318}/" & strDevID & "/NetworkAddress"  
    
29.     r=WSHShell.regRead(strNetReg)  
    
30.     if err.number=-2147024894 then  
    
31.         WSHShell.regWrite strNetReg,strMAC  
    
32.         msgbox "新建成功"&chr(10)&chr(13)&"重启网卡生效！"  
    
33.     else  
    
34.     WSHShell.regWrite strNetReg,strMAC  
    
35.         msgbox "修改成功"&chr(10)&chr(13)&"重启网卡生效！"  
    
36.     end if  
    
37. end sub  
    
38.   
    
39. '格式化网卡ID号  
    
40. function formatDevID(iDevID)  
    
41.     if iDevID<10 then  
    
42.         formatDevID="000" & iDevID  
    
43.     elseif iDevID>=10 and iDevID<100 then  
    
44.         formatDevID="00" & iDevID  
    
45.     else  
    
46.         formatDevID="0" & iDevID  
    
47.     end if  
    
48. end function  

复制代码

a121440357

神奇众推APP 广告人脉资源免费发布平台，100万人在线，广告效果裂天，广告发布联系jckj524,发布广告不收一分钱，欢迎体验极速引流，让你拥有无限的资源，适合所有行业

a121440357

神奇众推APP 广告人脉资源免费发布平台，100万人在线，广告效果裂天，广告发布联系jckj524,发布广告不收一分钱，欢迎体验极速引流，让你拥有无限的资源，适合所有行业