::::分离出机器的物理地址，并保存到 ( phyaddr.txt) 文件中
if exist phyaddr.txt del phyaddr.txt
if exist phyaddr1.txt del phyaddr1.txt
find "Physical Address" ipconfig.txt >phyaddr.txt
Set sc=1
Set scfile=phyaddr.txt
goto scan
::::多网卡时，扫描每个网卡MAC地址
:rescan1
Set sc=%sc%1
Set scfile=phyaddr1.txt
find /v "%strMac%" phyaddr.txt >%scfile%
Goto scan
:rescan2
Set sc=%sc%1
Set scfile=phyaddr.txt
find /v "%strMac%" phyaddr1.txt >%scfile%
Goto scan
:scan
::::从(c:\phyaddr.txt)文件中取得物理地址字符串，并赋给变量"MacAddress"
for /f "skip=2 tokens=12" %%M in (%scfile%) do set strMac=%%M
::::以变量"strMac"为关键字搜索(iplist.txt)中相同的字符串行，并保存到(PCCfg.txt)
find "%strMac%" iplist.txt >PCCfg.txt
::::找出机器名(从"PCCfg.txt"中分离出 机器名字段，并赋给变量"CName")
for /f "skip=2 tokens=1" %%N in (PCCfg.txt) do set CName=%%N
if not "%CName%"=="" Goto found
::::支持最多扫描5个网卡
If "%sc%"=="11111" Goto failed
If "%sc%"=="1" Goto rescan1
if %scfile%==phyaddr.txt Goto rescan1
if %scfile%==phyaddr1.txt Goto rescan2
:found
ECHO 本机 MAC: %strMac%
ECHO 目标名称: %CName%
::::显示IP地址. (从"PCCfg.txt"中分离出 IP地址字段，并赋给变量"IPAddress")
for /f "skip=2 tokens=3" %%I in (PCCfg.txt) do set IPAddress=%%I
ECHO 目标地址: %IPAddress%
::::显示网卡MAC地址.(从"PCCfg.txt"中分离出 MAC地址字段，并赋给变量"MacAddress")
for /f "skip=2 tokens=2" %%M in (PCCfg.txt) do set MacAddress=%%M
ECHO 目标 MAC: %MacAddress%
复制代码

@echo off&mode con cols=55 lines=6
::::修改密钥文件。用的时候把1.txt改名为密钥文件名lic.dat接着start keygen.bat
::::判断当前主机网卡状态
for /f "tokens=1,2 delims= " %%a in ('getmac^|find /i "-"') do echo %%a>>a.txt
if not exist a.txt (Goto found) else Goto taken

:found
ECHO  :::::::::::::::::::::::::::::::::::::::::::::::::::::
ECHO  :: 请检索网卡是否存在并启用,密钥是基于网卡而生成的 ::
ECHO  :: 若'LAN或Internet'接口名非'本地连接'请手动修改   ::
ECHO  :::::::::::::::::::::::::::::::::::::::::::::::::::::
set c=0ABCDEFabc9ABCDEF0
:loop
set /a num=%random%%%16
call set col=0%%c:~%num%,1%%
COLOR %col%
ping -n 3 127.1>nul
goto loop
pause
exit

:taken
color a
::::提取当前主机mac赋值到newmac
for /f "tokens=1,* delims=:" %%b in ('findstr/n .* a.txt') do (
	if %%b equ 1 set on1=%%c)
	set newmac=%on1:~0,17%

::::提取1.txt文件中mac特征字符赋值到oldmac
for /f "tokens=1,* delims=:" %%i in ('findstr/n .* 1.txt') do (
	if %%i equ 1 set on1=%%j)
	set oldmac=%on1:~13,17%

	::::读取1.txt文件到v中
	(for /f "usebackq delims=" %%a in (1.txt) do (
		set v=%%a

		::::用当前主机mac替换1.txt中mac字符
		setlocal enabledelayedexpansion
		set v=!v:%oldmac%=%newmac%!

		::::保存替换后的文件到2.txt
		echo.!v!
		endlocal
		)
	)> 2.txt
if exist a.txt del a.txt
if exist 1.txt del 1.txt
ren 2.txt 1.txt
ECHO 操作成功
start keygen.bat
echo 注册成功
pause
exit
复制代码