Question

如何用批处理文件实现自动修改网卡物理地址

RT 不是自动修改IP地址，是修改网卡物理地址

Answer 1

MAC吧 简单 批处理是强大滴
@echo off
set/p mac=请输入MAC地址（格式如：00e2d5s86d9s）:
set x=0
:ag3
reg query HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Class\{4D36E972-E325-11CE-BFC1-08002bE10318}\000%x%\Ndi\params /s>nul 2>nul||set /a x+=1&&goto ag3
echo 找到000%x% 开始设置...
reg add HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Class\{4D36E972-E325-11CE-BFC1-08002bE10318}\000%x% /v NetworkAddress /t REG_SZ /d %mac% /f
start 本地连接.vbs
echo 重启本地连接 按任意键确定完成！
pause>nul
start 本地连接.vbs
exit
这段保存为mac.bat

Const ssfCONTROLS = 3
sConnectionName = "本地连接" '可改成需要控制的连接名称，如"无线网络连接"、"本地连接 2"等
sEnableVerb = "启用(&A)"
sDisableVerb = "停用(&B)"

set wmi = GetObject("winmgmts:")
set colSystem = wmi.ExecQuery("select * from Win32_OperatingSystem")
for each objSystem in colSystem
if Instr(UCase(objSystem.Caption),UCase("Windows XP")) then '如果系统是WinXP
sNetConnections = "网络连接"
sDisableVerb = "停用(&B)"
else '如果系统是Win2000
sNetConnections = "网络和拨号连接"
sDisableVerb = "禁用(&B)"
end if
next

set shellApp = createobject("shell.application")
set oControlPanel = shellApp.Namespace(ssfCONTROLS)

set oNetConnections = nothing
for each folderitem in oControlPanel.items
if folderitem.name = sNetConnections then
set oNetConnections = folderitem.getfolder
exit for
end if
next

if oNetConnections is nothing then
WScript.Echo "控制面板中未找到" & sNetConnections & "文件夹"
wscript.quit
end if

set oLanConnection = nothing
for each folderitem in oNetConnections.items
'WScript.Echo folderitem.name
if lcase(folderitem.name) = lcase(sConnectionName) then
set oLanConnection = folderitem
exit for
end if
next

if oLanConnection is nothing then
WScript.Echo sNetConnections & "中未找到'" & sConnectionName & "'项目"
wscript.Quit
end if

bEnabled = true
set oEnableVerb = nothing
set oDisableVerb = nothing
s = "Verbs: " & vbcrlf
for each verb in oLanConnection.verbs
'WScript.Echo verb.name
's = s & vbcrlf & verb.name
if verb.name = sEnableVerb then
set oEnableVerb = verb
bEnabled = false
end if
if verb.name = sDisableVerb then
set oDisableVerb = verb
end if
next

'debugging displays left just in case...
'
'msgbox s ': wscript.quit
'msgbox "Enabled: " & bEnabled ': wscript.quit

'not sure why, but invokeverb always seemed to work
'for enable but not disable.
'
'saving a reference to the appropriate verb object
'and calling the DoIt method always seems to work.
'
if bEnabled then
' oLanConnection.invokeverb sDisableVerb
'if msgbox(sConnectionName & " 当前状态：已启用", 36, "是否停用")=vbYes then
oDisableVerb.DoIt
'then
else
' oLanConnection.invokeverb sEnableVerb
'if msgbox(sConnectionName & " 当前状态：已禁用", 36, "是否启用")=vbYes then
oEnableVerb.DoIt
'then
end if

'adjust the sleep duration below as needed...
'
'if you let the oLanConnection go out of scope
'and be destroyed too soon, the action of the verb
'may not take...
'
wscript.sleep 1000

set oNetConnections = nothing
set oLanConnection = nothing
set oEnableVerb = nothing
set oDisableVerb = nothing
这段保存为 本地连接.vbs

如果是笔记本可能会出错 因为笔记本的mac我没考虑 你可以Q我279325850
帮你改改就可以了
多网卡也会出错 我也没考虑 这个见谅 我不会
mac.bat和本地连接.vbs放在同一路经运行mac.bat就可以了

另外下面的vbs代码作用是重启本地连接(修改mac地址后必须的) 代码不是我写的 有错找我也没用 上面批处理代码的任何问题请Q我

Answer 2

批处理能完成算他牛