Board logo

标题: 网络邻居连通测试.bat [打印本页]
作者: yangzhiyi     时间: 2008-3-13 02:59    标题: 网络邻居连通测试.bat

网络邻居连通测试

今天看到一个贴在说类似的问题，修改了一下以前的发上来。
自动获取IP地址前段 帮忙优化一下
不 echo %ip% >nul 下for 出错，不知为何

  Quote:

  1. @echo off
  2. title 网络邻居连通测试

  4. ::自动获取IP地址前段
  5. for /f "tokens=2 delims=:" %%i in ('ipconfig^|find /i "IP Address"') do (set ip=%%i)
  6. set ip=%ip:~1%
  7. echo %ip% >nul
  8. for /F "usebackq tokens=2,3,4 delims=. " %%i in ('echo %ip%') do (set ip=%%i.%%j.%%k)

  10. ::set ip=192.168.1
  11. ::IP地址前段，如果手工设定则去掉上行前面的 ::
  12. set ip1=1
  13. ::起始数
  14. set ip2=10
  15. ::结束数
  16. set ip4=
  17. ::测试完成默认值，留空时不会按回车键太快
  18. set ip5=y
  19. ::清空原有记录默认值
  20. set ip6=n
  21. ::查看记录默认值
  22. set ip7=2
  23. ::回响请求消息的次数
  24. set ip8=200
  25. ::等待回响应答消息响应的时间（以微妙计）



  29. ::下面如你不理解不要更改

  31. if "%1"=="/?" goto op1
  32. if "%1"=="-?" goto op1
  33. if /i "%1"=="/h" goto op1
  34. if /i "%1"=="-h" goto op1
  35. if /i "%1"=="/help" goto op1
  36. if /i "%1"=="-help" goto op1
  37. if "%1"=="" goto op2
  38. if "%2"=="" goto op2
  39. if "%3"=="" goto op2
  40. set ip=%1
  41. set ip1=%2
  42. set ip2=%3
  43. goto op3

  45. :op1
  46. echo.
  47. echo     如果你经常维护局域网时，想在一台机中测试一下它能否连接到其它网内的机器时就用它吧，十几秒钟就搞定。
  48. echo.
  49. echo 如果从其它程序中调用：本程序名 [IP地址前段] [起始数] [结束数]
  50. echo 例子：本程序名 192.168.0 1 10
  51. echo.
  52. echo.
  53. echo 如果你的机器太差那么 起始数到结束数 的范围别太大，否则机器可能会假死。
  54. echo yangzhiyi 作品 于 2008-3-13 日
  55. echo.
  56. pause >nul
  57. cls

  59. :op2
  60. echo 输入IP地址前段 默认为：%ip%
  61. set /p ip=输入：
  62. echo 输入起始数 默认为：%ip1%
  63. set /p ip1=输入：
  64. echo 输入结束数 默认为：%ip2%
  65. set /p ip2=输入：

  67. :op3
  68. rd /s /q "%temp%\iptest" 1>nul 2>nul
  69. md "%temp%\iptest" 1>nul 2>nul

  71. echo ;成功的地址 (%date% %time%)> "%temp%\iptest\okip.txt"
  72. echo ;失败的地址 (%date% %time%)> "%temp%\iptest\noip.txt"


  75. set ip3=%ip1%,1,%ip2%
  76. ::起始数,跳跃数,结束数  注意：不要随便更改此参数
  77. for /l %%a in (%ip3%) do start /min "网邻连通测试 ping %ip%.%%a" cmd /c "@mode con cols=43 lines=5 & echo 测试中，请等待。。。 & ping %ip%.%%a -n %ip7% -w %ip8% >nul&&echo %ip%.%%a>>"%temp%\iptest\okip_%%a.txt" || echo %ip%.%%a>>"%temp%\iptest\noip_%%a.txt""

  79. :op4

  81. cls
  82. echo 请在所有项目测试完后输入y键:
  83. set /p ip4=是否已完成:
  84. if /i not "%ip4%" == "y" goto op4

  86. for /l %%b in (%ip3%) do IF EXIST "%temp%\iptest\okip_%%b.txt" more "%temp%\iptest\okip_%%b.txt" >> "%temp%\iptest\okip.txt"
  87. for /l %%b in (%ip3%) do IF EXIST "%temp%\iptest\noip_%%b.txt" more "%temp%\iptest\noip_%%b.txt" >> "%temp%\iptest\noip.txt"


  90. cls

  92. IF EXIST okip.txt set /p ip5=是否清空原有记录(是为y)：& goto op5
  93. IF EXIST noip.txt set /p ip5=是否清空原有记录(是为y)：

  95. :op5
  96. if /i "%ip5%1" == "y1" (
  97. del /q /f okip.txt 2>nul 1>nul
  98. del /q /f noip.txt 2>nul 1>nul
  99. copy /y "%temp%\iptest\okip.txt" okip.txt 2>nul 1>nul
  100. copy /y "%temp%\iptest\noip.txt" noip.txt 2>nul 1>nul
  101. ) ELSE (
  102. more "%temp%\iptest\okip.txt" >> okip.txt
  103. more "%temp%\iptest\noip.txt" >> noip.txt
  104. )
  105. echo off

  107. cls
  108. echo.
  109. echo -------------------------------测试结果-------------------------------
  110. type "%temp%\iptest\okip.txt"
  111. echo.
  112. type "%temp%\iptest\noip.txt"
  113. echo.
  114. echo -------------------------------结果结束-------------------------------

  116. del /q /f "%temp%\iptest\*.*"  2>nul 1>nul
  117. rd /s /q "%temp%\iptest" 2>nul 1>nul

  119. IF EXIST okip.txt set /p ip6=是否查看记录(是为y)：
  120. if /i "%ip6%1" == "y1" (
  121. IF EXIST noip.txt start noip.txt
  122. IF EXIST okip.txt start okip.txt
  123. )
        志艺风云发表于：  2008-03-13  02:11

[ Last edited by yangzhiyi on 2008-3-13 at 03:20 AM ]
作者: yangzhiyi     时间: 2008-3-13 03:10
不知如何加上 CODE:  [Copy to clipboard] 选择功能，上传给下载
唉，上传了两次都选错包，上传系统帮手删掉那两个有问题的吧。

网络邻居连通测试

[ Last edited by yangzhiyi on 2008-3-13 at 03:23 AM ]
作者: bat-zw     时间: 2008-3-13 09:25
请把问题说清楚点，整个就搞不懂你要解决什么问题，一会这一会那的。
作者: yangzhiyi     时间: 2008-3-13 13:00


  Quote:
Originally posted by zw19750516 at 2008-3-13 09:25:
请把问题说清楚点，整个就搞不懂你要解决什么问题，一会这一会那的。

没问题啊

自动获取IP地址前段 帮忙优化一下
不 echo %ip% >nul 下for 出错，不知为何?
作者: moniuming     时间: 2008-3-13 15:07
你的 echo %ip% >nul 并不在 for  里面循环嘛
CODE:  [Copy to clipboard] 的使用: 在代码前加上 []code (注:code在中括号里,这样写是为了让你看得到),写完代码后加上 []/code (注:/code在中括号里).
作者: yangzhiyi     时间: 2008-3-13 21:34


  Quote:
你的 echo %ip% >nul 并不在 for  里面循环嘛
CODE:  [Copy to clipboard] 的使用: 在代码前加上 []code (注:code在中括号里,这样写是为了让你看得到),写完代码后加上 []/code (注:/code在中括号里).

说的是第7行，如无第7行，第8行出错。

着色脚本后，已加上quote 如果再在前面加上code 代码变乱了，是不是把quote改成code ？
嘿嘿，刚试了下真是把quote改成code
[ Last edited by yangzhiyi on 2008-3-13 at 09:42 PM ]