@echo off   N*#SY$!y  
    echo.   -9mh|&z`  
    echo --------------活动主机扫描-----------------------  Yi:+,-Fso  
    echo 功能说明：  fg2}~02n  
    echo 1、扫描本网段的活动主机；  ZHT.+X:_  
    echo 2、扫描随机网段的活动主机；  F9hCT)  
    echo 3、保存扫描结果；   *m2:iChY  
    echo.   u}$?rH'(  
    echo     j JW
0a  
    echo -------------------------------------------------  IzG7!K  
qz 'a.]{=  
    :start   o_cj-  
    echo 1、扫描本网段；   [mhY_ Hmz]  
    echo 2、扫描任意网段；  pl%ag~i5  
    echo q、退出(区分大小写)   `H^#Zu  
    set goto=   j0Q;OKu  
    set /p goto=请输入你的选择：   # H4dmnV  
    if "%goto%"=="q" goto :exit   )ZT&V I  
    if "%goto%"=="1" (goto :self) else goto :any   >8ePx,+!  
K]RkKMT,  
    :self   +_+}^Nf]Y3  
    for /f "usebackq delims=: tokens=2" %%i in (`"ipconfig|find "IP Address" "`) do set ipaddr=%%i   x; ujR<  
    for /f "delims=. tokens=1,2,3,4*" %%i in ("%ipaddr%") do set /a ipaddr1=%%i &&set /a ipaddr2=%%j && set /a ipaddr3=%%k && set /a ipaddr4=%%l   1<lLE1fk  
    goto :scan   98x(2fCvF(  
x }-rAr  
    :any   ++xEMP)  
    set ipaddr1=%random%   N1_nBQF )  
    set /a (ipaddr1%%=256)   *&LVn)@[`  
    set ipaddr2=%random%   RzXxnx)]q  
    set /a (ipaddr2%%=256)   <jfi"SJu  
    set ipaddr3=%random%   oMcX{v^"  
    set /a (ipaddr3%%=256)   )'92{-A0  
    goto :scan   G.1pg]P!  
.hnGHX  
    :scan   u[y>DPPx  
    set /a count=0   u.R:/H<>~  
    echo.>scan_result.txt   ;D BO  
    echo ---------%ipaddr1%.%ipaddr2%.%ipaddr3%段活动主机(WinNT)------->>scan_result.txt   zAS&L%^tV  
    for /l %%i in (1,1,256) do echo 正在扫描 %ipaddr1%.%ipaddr2%.%ipaddr3%.%%i &&echo 请等待........&& ping -n 1 -w 2 %ipaddr1%.%ipaddr2%.%ipaddr3%.%%i|find "TTL=128">nul &&set /a count=%count%+1 && echo %ipaddr1%.%ipaddr2%.%ipaddr3%.%%i>>scan_result.txt   yi
n"+&<T  
    cls   XV]`?  
    echo ----------------结果说明---------------  e$fxC-sZ  
    echo 扫描完毕!   %#Fd0L  
    echo 共扫描到活动的Windows NT系统：%count%台。   K'7i$bl%  
    echo 扫描的结果保存在当前目录的scan_result.txt中。   ^3F[^#"  
    echo -----------------------------------   C 3b  
    echo 1、继续扫描其它网段；  qJKD|=_  
    echo q、退出   _1wLcFj  
    set goto=   /)e&4.6  
    set /p goto=请输入你的选择：   )W(?wv!,  
    if "%goto%"=="q" (goto :start) else goto :any   %DbL|;z1  
    :exit