[网络连接] 批处理怎样获取本机多网卡IP并对比多个IP？

@echo off
title 显示本机IP脚本

for /f "tokens=4" %%a in ('route print^|findstr 0.0.0.0.*0.0.0.0') do (
 set IP=%%a
)

color 0b

if "%ip%"=="192.168.0.122" mshta vbscript:CreateObject("Wscript.Shell").popup("你的机器IP是 %ip% 可能有感染病毒的风险，请尽快联系管理员处理!",0,"警告!",16)(window.close)
if "%ip%"=="192.168.6.168" mshta vbscript:CreateObject("Wscript.Shell").popup("你的机器IP是 %ip% 可能有感染病毒的风险，请尽快联系管理员处理!",0,"警告!",16)(window.close)
if "%ip%"=="192.168.4.11"  mshta vbscript:CreateObject("Wscript.Shell").popup("你的机器IP是 %ip% 可能有感染病毒的风险，请尽快联系管理员处理!",0,"警告!",16)(window.close)
if "%ip%"=="192.168.6.191" mshta vbscript:CreateObject("Wscript.Shell").popup("你的机器IP是 %ip% 可能有感染病毒的风险，请尽快联系管理员处理!",0,"警告!",16)(window.close)
复制代码

@echo off
color 0b
call :GetIPAddress ip
echo 你的本机IP为:%ip%
echo.
if "%ip%"=="192.168.0.122" color 4e & echo 你的机器有感染病毒风险，请尽快通知管理员。 & mshta vbscript:CreateObject("Wscript.Shell").popup("你的机器IP是 %ip% 可能有感染病毒的风险，请尽快联系管理员处理!",0,"警告!",16)(window.close)
echo.
echo.
echo 按任意键关闭程序 &pause>NUL
::pause & exit

:GetIPAddress
    for /f "delims=:( tokens=2" %%i in (
        ' ipconfig /all ^| findstr /rc:"IP[v4]* Address" /rc:"IP[v4]* 地址" '
    ) do (
        for /f "tokens=1-4 delims=. " %%a in ("%%i") do (
            set "%~1=%%a.%%b.%%c.%%d"
            set "%~2=%%c"
            set "%~3=%%d"
        ) 2>nul
        goto :eof
    )
goto :eof
复制代码