网络课设置时 老出现IP冲突 于是就写了一个小程序 运行在别人机器上查看
经修改之后可以扫描不同网段 感谢redtek大虾的多线程思路 现给出源代码:
加张截图:

IPfinder2.bat 去除 find 提高速度降低 内存占用 更改如下
[ Last edited by PPdos on 2007-2-23 at 12:35 AM ]
经修改之后可以扫描不同网段 感谢redtek大虾的多线程思路 现给出源代码:
@echo off
if "%1"=="" goto PPdos
title Finished %s%/100
ping -w 1 -n 1 %1.%2>nul&&call :ananlyse %1.%2
exit
:PPdos
set /p ip=IP adresse (ex:192.168.1):
for /l %%i in (1 1 255) do (
set /a s=%%i*100/255
start /B %~s0 %ip% %%i
if "%%i"=="120" ping 127.0>nul
)
pause>nul
:ananlyse
for /f "tokens=3,9 delims==: " %%i in ('ping -n 1 -w 2 -a %1^|find "TTL"') do (
echo.%%i OK TTL=%%j
)
加张截图:

IPfinder2.bat 去除 find 提高速度降低 内存占用 更改如下
@echo off
if "%1"=="" goto PPdos
title Finished %s%/100
ping -w 1 -n 1 %1.%2 >nul&&call :ananlyse %1.%2
exit
:PPdos
set /p ip=IP adresse (ex:192.168.0):
for /l %%i in (1 1 255) do (
set /a s=%%i*100/255
start /B %~s0 %ip% %%i
if "%%i"=="128" ping 127.0>nul
)
pause>nul
:ananlyse
for /f "tokens=12 delims==. " %%i in ('ping -w 1 -n 1 %1') do (
if not "%%i"==" " echo.%1 OK TTL=%%i
)[ Last edited by PPdos on 2007-2-23 at 12:35 AM ]
本帖最近评分记录
(共 1 条)
点击查看详情
| 评分人 | 分数 | 时间 |
|---|---|---|
| redtek | +10 | 2007-02-17 03:28 |
附件
菩提本无树,明镜亦非台,本来无一物,何处惹尘埃.

