'/*=========================================================================
'*Intro网上找了一圈，都不怎么好，有一个比较不错的，汉化作者汉化时加了个自己的介绍文件，这个文件比程序本身还大，感觉不爽，于是本人的VBS版MAC修改代码便诞生了,在使用过程中如果出现不能上网的情况得返回一下网卡驱动（有些机器比较特别），如果要返回以前的MAC可以：开始-->控制面板-->网络连接-->点击您的网卡(一般是"本地连接")-->点击常规里的属性-->配置..-->高级-->选中-->NetworkAddress-->右边选择"不存在"
'*FileNameChangeMAC.vbs
'*Authoryongfa365
'*Versionv3.0
'*WEBhttp://www.yongfa365.com
'*Emailyongfa365[at]qq.com
'*MadeTime2007-12-0922:17:58
'*LastModify2007-12-1318:35:58
'*==========================================================================*/
OnErrorResumeNext
strComputer="."
SetobjWMIService=GetObject("winmgmts:"&strComputer&"rootcimv2")
SetcolItems=objWMIService.ExecQuery("Select*fromWin32_NetworkAdapterConfigurationwhereIPEnabled=true",,48)
ForEachobjItemincolItems
msg=msg&"编号："&objItem.Index&"MAC："&objItem.MACAddress&vbCrLf&"网卡："&objItem.Description&vbCrLf&vbCrLf
Next
idx=InputBox(msg,"1/2请输入您要修改的MAC的编号","1")
IfNotIsNumeric(idx)OrLen(idx)=0Then
WScript.Echo"编号输入有误，退出"
Wscript.Quit
EndIf
MAC=InputBox("输入你指定的MAC地址值（注意应该是12位的连续数字或字母，其间没有-、：等分隔符）","2/2请输入修改后的MAC地址","000000000000")
MAC=Replace(Replace(Replace(MAC,":",""),"-",""),"","")
IfRegExpTest("[^da-fA-F]",MAC)>0OrLen(MAC)<>12Then
WScript.Echo"MAC输入有误，退出"
Wscript.Quit
EndIf
idx=Right("00000"&idx,4)
reg="HKLMSYSTEMCurrentControlSetControlClass{4D36E972-E325-11CE-BFC1-08002bE10318}"&idx
SetWSHShell=CreateObject("WScript.Shell")
WshShell.RegWritereg&"NetworkAddress",MAC,"REG_SZ"
WshShell.RegWritereg&"NdiparamsNetworkAddressdefault",MAC,"REG_SZ"
WshShell.RegWritereg&"NdiparamsNetworkAddressParamDesc","NetworkAddress","REG_SZ"
WshShell.RegWritereg&"NdiparamsNetworkAddressoptional","1","REG_SZ"
'得到网卡的名称，比如“本地连接2”
NetWorkName=WshShell.RegRead("HKLMSYSTEMControlSet001ControlNetwork{4D36E972-E325-11CE-BFC1-08002BE10318}"&WshShell.RegRead(reg&"NetCfgInstanceId")&"ConnectionName")
restartNetWorkNetWorkName
'WScript.Echo"修改成功"
FunctionrestartNetWork(sConnectionName)
'重启网卡
'sConnectionName="本地连接5"'可改成需要控制的连接名称，如"无线网络连接"等
'定位到网络连接
SetshellApp=CreateObject("shell.application")
SetoControlPanel=shellApp.Namespace(3)
ForEachfolderiteminoControlPanel.Items
Iffolderitem.Name="网络连接"Then
SetoNetConnections=folderitem.GetFolder
ExitFor
EndIf
Next
'定位到要处理的网卡
ForEachfolderiteminoNetConnections.Items
IfLCase(folderitem.Name)=LCase(sConnectionName)Then
SetoLanConnection=folderitem
ExitFor
EndIf
Next
'重启网卡
Fori=1To2
ForEachverbinoLanConnection.verbs
IfRegExpTest("启用|禁用|停止",verb.Name)>0Then
verb.DoIt
ExitFor
EndIf
Next
'有时网卡半天反应不过来，可以把这个参数设的大点一般程序可以正常运行，或您多运行几次程序
WScript.Sleep5000
Next
EndFunction
'正则测试有没有匹配内容
FunctionRegExpTest(patrn,strng)
Setre=NewRegExp
re.Pattern=patrn
re.IgnoreCase=True
re.Global=True
SetMatches=re.Execute(strng)
RegExpTest=Matches.Count
EndFunction
当前1/2页12下一页阅读全文
【vbs Windows系统改变或修改网卡的MAC地址的脚本与软件第1/2页】相关文章：
★ 用vbs实现在启动 Windows 资源管理器时打开特定文件夹