更加详细的获取IPMAC外网IP和归属地批处理

459500160

如题吧，是小弟搜网上的代码自己整合出来的一个网管维护工具，因为新注册无法在分享区发帖，就发这里了，在分享区也有跟帖的，如果有影响到，请版主帮忙移动下哈
特点是获取电脑上所有本地连接的IP和MAC地址，外网IP和对应的归属地，并把获取的信息添加进IP信息.txt，按任意键退出后自动删除TXT文件，脚本用到了curl工具，win10以下的系统请自行安装

1. @echo off
   
2. title 内外网IP查看工具-By NT
   
3. @echo.
   
4. mode con cols=38 lines=15
   
5. color F0
   
6. for /F "tokens=1,2 delims=#" %%a in ('"prompt #$H#$E# & echo on & for %%b in (1) do rem"') do (
   
7. set "DEL=%%a")
   
8. 
   
9. @echo            请将以下内容截图或
   
10. @echo            本工具生成在桌面的
    
11. call :ColorText Fc "            IP信息"
    
12. @echo 发送给网管
    
13. @echo ════════════════════════════════════
    
14. for /f "delims=: tokens=2" %%i in ('ipconfig^|findstr "IPv4 地址"') do echo      内网IP为:%%i        &echo 内网IP为:%%i >>IP信息.txt
    
15. for /f "delims=: tokens=2" %%m in ('ipconfig -all^|findstr "物理地址"') do echo      网卡地址:%%m    &echo 网卡地址:%%m >>IP信息.txt
    
16. for /f "delims=: tokens=2" %%o in ('curl -s cip.cc^|findstr "IP"') do set ip=%%o&echo 外网IP为:%%o >>IP信息.txt
    
17. for /f "delims=: tokens=2" %%l in ('curl -s ipinfo.io^|findstr ""region""') do set ad=%%l&echo 所在地区:%%l >>IP信息.txt
    
18. @echo      外网IP为:%ip%      
    
19. @echo      所在地为:%ad%      
    
20. @echo ════════════════════════════════════
    
21. set /p="   按任意键退出并删除"<nul
    
22. call :ColorText Fc "IP信息"
    
23. @echo 文档
    
24. pause>nul
    
25. for /r %%f in (IP信息.txt) do del %%f
    
26. goto :eof
    
27. :ColorText
    
28. echo off
    
29. <nul set /p ".=%DEL%" > "%~2"
    
30. findstr /v /a:%1 /R "^$" "%~2" nul
    
31. del "%~2" > nul 2>&1
    
32. goto :eof

复制代码

459500160

因为能力有限，还有不够完美的地方，如何实现一个内网IP对应一个MAC而不是列表形式显示出来，而且感觉这批处理有点太多了，也不知道从哪里入手可以再精简

Batcher

回复 1# 459500160


    建议注明需要调用第三方命令行工具 curl.exe 否则不熟悉的人使用这个代码会出错

459500160

回复 3# Batcher


    谢谢版主提醒，一会改上去，不过win10系统不是已经集成了吗？