中国DOS联盟

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

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

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

嘿嘿，刚试了下真是把quote改成code