下面程序用记事本写下,报后缀名.txt改成.bat.然后双击就可以打开了。
color 0a
cls
@echo off
title 局域网内在线电脑ip
:send
@echo off&setlocal enabledelayedexpansion
echo 正在获取本机的ip地址,请稍等...
for /f "tokens=3 skip=2 delims=: " %%i in ('nbtstat -n') do (
set "ip=%%i"
set ip=!ip:~1,-1!
echo 本机ip为:!ip!
goto :next
)
:next
for /f "delims=. tokens=1,2,3,4" %%i in ("%ip%") do set range=%%i.%%j.%%k
echo.&echo 正在获取本网段内的其它在线计算机名,请稍等...
echo 本网段【%range%.*】内的计算机有:
for /f "delims=" %%i in ('net view') do (
set "var=%%i"
::查询在线计算机名称
if "!var:~0,2!"=="\\" (
set "var=!var:~2!"
echo !var!
ping -n 1 !var!>nul
))
echo.
echo 正在获取本网段内的其它在线计算机ip,请稍等...
for /f "skip=3 tokens=1,* delims= " %%i in ('arp -a') do echo ip: %%i 正在使用
echo 查询完毕,按ctrl+c键退出...
pause>nul