我想用vbs或者批处理实现获取本机的mac地址，然后修改一个文件里面的多个mac地址为本机的mac地址

Question

我想用vbs或者批处理实现获取本机的mac地址，然后修改一个文件里面的多个mac地址为本机的mac地址，应该如何实现？

Answer 1

@echo off

for /f "tokens=2 delims=:" %%a in ('ipconfig /all^|find "Physical Address"') do set MAC=%%a

echo ╭—————————————————╮
echo │ 本机MAC地址：%MAC: =% │
echo ╰—————————————————╯

set /p MAC=请输入MAC地址(十六进制)：

echo %MAC%|findstr "^[0-9a-fA-F]*$">nul||cls&&echo 你输入的不是16进制MAC地址！&&echo 请重新输入&&goto MACset
for /l %%i in (0,1,1000) do if "!MAC:~%%i,1!"=="" set strlen=%%i&&goto pass
:pass
if %strlen% GTR 12 (cls&&echo 你输入的MAC地址位数大于12位&&echo 程序自动截取前12位，设定如下：) else (if %strlen% LSS 12

(cls&&echo 你输入的MAC地址位数小于12位&&echo 请重新输入！&&goto MACset) else (if %strlen% EQU 12 cls&&echo 输入MAC地址位数

正确))

echo ╭—————————————————╮
echo │输入的MAC为：%MAC:~0,2%-%MAC:~2,2%-%MAC:~4,2%-%MAC:~6,2%-%MAC:~8,2%-%MAC:~10,2% │
echo ╰—————————————————╯
set MAC=%MAC:~0,12%

echo ╭—————————————————╮
echo │正 在 修 改 本 机 MAC 地 址…… │
echo ╰—————————————————╯

@reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Class\{4D36E972-E325-11CE-BFC1-08002bE10318}\0008" /v

NetworkAddress /t reg_SZ /d %MAC% /f>nul

::获取本地连接名
for /f "tokens=2,* delims= " %%a in ('ipconfig /all^|find "Ethernet adapter"') do set hj=%%b
set ipname=%hj::=%

::自动断线重连，启用新的MAC地址
echo Const ssfCONTROLS = 3 >"%temp%\00.vbs"
echo sConnectionName = "%ipname%" '可改成需要控制的连接名称，如"无线网络连接"、"区域联机 2"等>>"%temp%\00.vbs"
echo sEnableVerb = "启用(&A)">>"%temp%\00.vbs"
echo sDisableVerb = "停用(&B)">>"%temp%\00.vbs"
echo. >>"%temp%\00.vbs"
echo set wmi = GetObject("winmgmts:")>>"%temp%\00.vbs"
echo set colSystem = wmi.ExecQuery("select * from Win32_OperatingSystem")>>"%temp%\00.vbs"
echo for each objSystem in colSystem>>"%temp%\00.vbs"
echo if Instr(UCase(objSystem.Caption),UCase("Windows XP")) then '如果系统是WinXP>>"%temp%\00.vbs"
echo sNetConnections = "网络连接">>"%temp%\00.vbs"
echo sDisableVerb = "停用(&B)">>"%temp%\00.vbs"
echo else '如果系统是Win2000>>"%temp%\00.vbs"
echo sNetConnections = "网络和拨号连接">>"%temp%\00.vbs"
echo sDisableVerb = "禁用(&B)">>"%temp%\00.vbs"
echo end if>>"%temp%\00.vbs"
echo next>>"%temp%\00.vbs"
echo. >>"%temp%\00.vbs"
echo set shellApp = createobject("shell.application")>>"%temp%\00.vbs"
echo set oControlPanel = shellApp.Namespace(ssfCONTROLS)>>"%temp%\00.vbs"
echo. >>"%temp%\00.vbs"
echo set oNetConnections = nothing>>"%temp%\00.vbs"
echo for each folderitem in oControlPanel.items>>"%temp%\00.vbs"
echo if folderitem.name = sNetConnections then>>"%temp%\00.vbs"
echo set oNetConnections = folderitem.getfolder>>"%temp%\00.vbs"
echo. exit for>>"%temp%\00.vbs"
echo end if>>"%temp%\00.vbs"
echo next>>"%temp%\00.vbs"
echo. >>"%temp%\00.vbs"
echo if oNetConnections is nothing then>>"%temp%\00.vbs"
echo WScript.Echo "控制面板中未找到" ^& sNetConnections ^& "活页夹">>"%temp%\00.vbs"
echo wscript.quit>>"%temp%\00.vbs"
echo end if>>"%temp%\00.vbs"
echo. >>"%temp%\00.vbs"
echo set oLanConnection = nothing>>"%temp%\00.vbs"
echo for each folderitem in oNetConnections.items>>"%temp%\00.vbs"
echo 'WScript.Echo folderitem.name>>"%temp%\00.vbs"
echo if lcase(folderitem.name) = lcase(sConnectionName) then>>"%temp%\00.vbs"
echo set oLanConnection = folderitem>>"%temp%\00.vbs"
echo exit for>>"%temp%\00.vbs"
echo end if>>"%temp%\00.vbs"
echo next>>"%temp%\00.vbs"
echo. >>"%temp%\00.vbs"
echo if oLanConnection is nothing then>>"%temp%\00.vbs"
echo WScript.Echo sNetConnections ^& "中未找到'" ^& sConnectionName ^& "'项目">>"%temp%\00.vbs"
echo wscript.Quit>>"%temp%\00.vbs"
echo end if>>"%temp%\00.vbs"
echo. >>"%temp%\00.vbs"
echo bEnabled = true>>"%temp%\00.vbs"
echo set oEnableVerb = nothing>>"%temp%\00.vbs"
echo set oDisableVerb = nothing>>"%temp%\00.vbs"
echo s = "Verbs: " ^& vbcrlf>>"%temp%\00.vbs"
echo for each verb in oLanConnection.verbs>>"%temp%\00.vbs"
echo 'WScript.Echo verb.name>>"%temp%\00.vbs"
echo 's = s ^& vbcrlf ^& verb.name>>"%temp%\00.vbs"
echo if verb.name = sEnableVerb then>>"%temp%\00.vbs"
echo set oEnableVerb = verb>>"%temp%\00.vbs"
echo bEnabled = false>>"%temp%\00.vbs"
echo end if>>"%temp%\00.vbs"
echo if verb.name = sDisableVerb then>>"%temp%\00.vbs"
echo set oDisableVerb = verb>>"%temp%\00.vbs"
echo end if>>"%temp%\00.vbs"
echo next>>"%temp%\00.vbs"
echo. >>"%temp%\00.vbs"
echo 'debugging displays left just in case...>>"%temp%\00.vbs"
echo '>>"%temp%\00.vbs"
echo 'msgbox s ': wscript.quit>>"%temp%\00.vbs"
echo 'msgbox "Enabled: " ^& bEnabled ': wscript.quit>>"%temp%\00.vbs"
echo. >>"%temp%\00.vbs"
echo 'not sure why, but invokeverb always seemed to work>>"%temp%\00.vbs"
echo 'for enable but not disable.>>"%temp%\00.vbs"
echo '>>"%temp%\00.vbs"
echo 'saving a reference to the appropriate verb object>>"%temp%\00.vbs"
echo 'and calling the DoIt method always seems to work.>>"%temp%\00.vbs"
echo '>>"%temp%\00.vbs"
echo if bEnabled then>>"%temp%\00.vbs"
echo ' oLanConnection.invokeverb sDisableVerb>>"%temp%\00.vbs"
echo 'if msgbox(sConnectionName ^& " 当前状态：已启用", 36, "是否停用")=vbYes then>>"%temp%\00.vbs"
echo oDisableVerb.DoIt>>"%temp%\00.vbs"
echo 'then>>"%temp%\00.vbs"
echo else>>"%temp%\00.vbs"
echo ' oLanConnection.invokeverb sEnableVerb>>"%temp%\00.vbs"
echo 'if msgbox(sConnectionName ^& " 当前状态：已禁用", 36, "是否启用")=vbYes then>>"%temp%\00.vbs"
echo oEnableVerb.DoIt>>"%temp%\00.vbs"
echo 'then>>"%temp%\00.vbs"
echo end if>>"%temp%\00.vbs"
echo. >>"%temp%\00.vbs"
echo 'adjust the sleep duration below as needed...>>"%temp%\00.vbs"
echo '>>"%temp%\00.vbs"
echo 'if you let the oLanConnection go out of scope>>"%temp%\00.vbs"
echo 'and be destroyed too soon, the action of the verb>>"%temp%\00.vbs"
echo 'may not take...>>"%temp%\00.vbs"
echo '>>"%temp%\00.vbs"
echo wscript.sleep 1000>>"%temp%\00.vbs"
echo. >>"%temp%\00.vbs"
echo set oNetConnections = nothing>>"%temp%\00.vbs"
echo set oLanConnection = nothing>>"%temp%\00.vbs"
echo set oEnableVerb = nothing>>"%temp%\00.vbs"
echo set oDisableVerb = nothing>>"%temp%\00.vbs"
echo. >>"%temp%\00.vbs"
call "%temp%\00.vbs"
echo Wscript.sleep 5000>"%temp%\5.vbs"&&call "%temp%\5.vbs"&&del "%temp%\5.vbs" /q
call "%temp%\00.vbs"&&del "%temp%\00.vbs"
cls
echo ╭—————————————————╮
echo │ 修 改 本 机 MAC 地 址 完 成 │
echo ╰—————————————————╯

先给你这一段，关于你要的实现一个文件里多个MAC地址的变更，联系我，我再帮你修改！

Answer 2

呵呵，确实好多话都可能有多种解释,这楼上答的是用文件里的修改本机的mac地址,是够复杂的! 而我一看这标题就想起我遇过的,那就简单多了,我那是装的pro/E ,它有个配置文件是用一个多处用了本机mac地址的文本文件生成的 ,要是mac不对,就不能启动，看楼主究竟是需要哪种。

Answer 3

貌似MAC地址是不能更改的吧。就像人的身份证号一样