@ECHO OFF
REM  QBFC Project Options Begin
REM  HasVersionInfo: Yes
REM  Companyname: atshe.cn
REM  Productname: 强制修改MAC（可恢复）
REM  Filedescription: 支持有线网卡和无线网卡 支持手动输入和随机生成、强制修改MAC（可恢复）
REM  Copyrights: cxci
REM  Trademarks: cxci
REM  Originalname: 强制修改MAC（可恢复）
REM  Comments: 支持有线网卡和无线网卡 支持手动输入和随机生成、强制修改MAC（可恢复）
REM  Productversion:  1.21. 0. 0
REM  Fileversion:  1.21. 0. 0
REM  Internalname: 强制修改MAC（可恢复）
REM  AdministratorManifest: Yes
REM  QBFC Project Options End
title=一键换MAC atshe.cn
color 0A
:: 获取管理员身份
cd %temp%
call :get_admin
:: 扫描PCI硬件路径
set SCAN_PCI_PATH=HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Class\{4d36e972-e325-11ce-bfc1-08002be10318}

:initmacinfo
goto :begin

:begin
echo.
wmic Nic where "PhysicalAdapter=true and Manufacturer<>'Microsoft'" get Index,NetConnectionID,MacAddress,Name
set /p "n=请输入Index （q退出）："
if "%n%"=="q" exit
set num=%n%
:000
set index=
set mac_address=
set name=
set net_connection_id=

for /f "tokens=1,2 delims==" %%i in ('wmic Nic where Index^=%num% get Index^,NetConnectionID^,MacAddress^,Name^ /VALUE') do (
if "%%i" == "Index" set index=%%j
if "%%i" == "MACAddress" set mac_address=%%j
if "%%i" == "Name" set name=%%j
if "%%i" == "NetConnectionID" set net_connection_id=%%j
)
::wan
set wan=%net_connection_id%
set n=000%num%
set n=%n:~-4%
cls
set ss=
echo.------------------------------------------
echo.wan:%wan%   mac:%mac_address%    index:%index%
echo.name:%name%
echo.
echo.
::wmic Nic where "PhysicalAdapter=true and Index=%num%" get NetConnectionID,Index,MacAddress,Name
echo.
echo.------------------------------------------
echo.↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓请选择操作↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓
echo.
echo.     1、随机         2、手动         3、还原
echo.
echo.     0、返回上一级   q、退出
Choice /C 1230q

cls
echo.正在执行》》》
if "%ErrorLevel%"=="1" goto :suiji
if "%ErrorLevel%"=="2" goto :scanf
if "%ErrorLevel%"=="3" goto :huanyuan
if "%ErrorLevel%"=="0" goto :begin
exit


:printf
set mac=%mac:~-12%
set macif=%mac:~0,2%
if "%macif%"=="00" (cls &echo.错误输入！！！MAC应为12位数 &goto :scanf)
::if "%macif%"=="00" (cls &echo.错误输入！！！MAC应为12位数 &goto :scanf)
set qiehuan=手动
set fancz=scanf
if "%cz%"=="scanf" (set fancz=suiji &set qiehuan=随机 &echo %mac%|findstr "^[0-9,a-f]*$">nul||goto :fail)
cls
set ss=
echo.%kkk%: %mac%     1、确定  2、再换  3、主页  q、退出
Choice /C 123q
echo.正在执行》》》

if "%ErrorLevel%"=="1" (goto :debug)
if "%ErrorLevel%"=="2" (cls &goto :%cz%)
if "%ErrorLevel%"=="3" (cls &goto :begin)
exit

:suiji

setlocal enabledelayedexpansion



set "temp="
set "kkk=随机数"

set cz=suiji
set mmjs=06A17B28C39D4E5F
for /l %%a in (1,1,10) do (set/a mmxz=!random!%%16
for %%b in (!mmxz!) do set temp=!temp!!mmjs:~%%b,1!)
set macss=0000000000%temp%
set mac3=%macss:~-10%

set "mac2="
set mmjstwo=26AE
for /l %%a in (1,1,1) do (set/a mmxz=!random!%%4
for %%b in (!mmxz!) do set mac2=!mac2!!mmjstwo:~%%b,1!)


set "mac1="
set mmjsth=0123456
for /l %%a in (1,1,1) do (set/a mmxz=!random!%%7
for %%b in (!mmxz!) do set mac1=!mac1!!mmjsth:~%%b,1!)


set mac=%mac1%%mac2%%mac3%



goto :printf


:scanf
set mac=
set "kkk=设置为"
set cz=scanf
echo.输多取后12位，输少不执行
echo.
set /p "mac=请输入12位MAC："
set mac=000000000000%mac%


goto :printf


:debug
cls

echo.【%wan%】正在处理中。。。

reg add "%SCAN_PCI_PATH%\%n%" /v "NetworkAddress" /t reg_sz /d %mac% /f>nul
cls
echo.切换成功!
goto :reb

:huanyuan
echo.【%wan%】正在处理中。。。
reg add "%SCAN_PCI_PATH%\%n%" /v "NetworkAddress" /t reg_sz /d 666666666666 /f>nul
reg delete "%SCAN_PCI_PATH%\%n%" /v "NetworkAddress" /f>nul
cls
echo.还原成功！
goto :reb
:reb
echo.正在重启%wan%...
netsh interface set interface "%wan%" disable 
netsh interface set interface "%wan%" enable

cls
goto :000

:: 获取管理员身份 开始
:get_admin
echo.正在获取管理员身份。。。
>nul 2>&1 "%SYSTEMROOT%\system32\cacls.exe" "%SYSTEMROOT%\system32\config\system"
if '%errorlevel%' NEQ '0' (
	echo Set UAC = CreateObject^("Shell.Application"^) >"%temp%\getadmin.vbs"
	echo UAC.ShellExecute "%~s0", "", "", "runas", 1 >>"%temp%\getadmin.vbs"
	"%temp%\getadmin.vbs"
	exit
) else (cls&goto :eof)
exit
:: 获取管理员身份 结束

:eof
exit