[文本处理] [分享]批处理一键获取内网MAC地址 内网IP地址

q120072949

感谢BATHOME版主和各位高手
2个传送门：
批处理如何获取本地连接的MAC地址？
http://www.bathome.net/thread-10864-1-1.html
批处理为何获取不到正确的本地连接IP？
http://www.bathome.net/viewthrea ... p;extra=&page=1
第一个是获取内网MAC地址，第二个获取内网IP地址
现在代码综合如下：

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%a in ('ipconfig/all') do call:a "%%a"
for /f "tokens=2 delims=:" %%a in ('ipconfig /all^|find "Physical Address"') do set MAC=%%a
ipconfig /all>"%temp%\ipList.txt"
for /f "tokens=1 delims=:" %%a in ('findstr /n "Ethernet adapter" "%temp%\ipList.txt"') do (
    set SkipRow=%%a
    goto :DoSkip
)

:DoSkip
for /f "usebackq skip=%SkipRow% tokens=1,15" %%a in ("%temp%\ipList.txt") do (
    if "%%a" equ "IP" (
        set IP=%%b
        goto :ShowResult
    )
)

:ShowResult
echo;%ip%：%e%
pause
:a
set "a=%~1"
if defined a if not "!a:~0,1!"==" " set "b=!a:~0,1!"
for /f "tokens=1,2* delims=:. " %%b in ("%~1") do if /i "%%b %%c"=="Physical Address" set %b%=%%d
复制代码