描局域网IP地址和主机名称，并将结果输出文本

描局域网IP地址和主机名称，并将结果输出文本

这是一个小工具，可以扫描当前局域网内正在使用主机的主机名称和IP地址，因技术有限，希望如有大神路过能够手下留情，多多包涵！

首先创建一个记事本并打开。

将以下代码复制并粘贴入记事本：

COLOR 0A

CLS

@ECHO Off

Title 查询局域网内在线电脑IP

:send

@ECHO off&setlocal enabledelayedexpansion

ECHO 程序正在运行，共2步，请勿关闭...

echo 计算机设备名称 >>局域网扫描报告.txt

for /f "delims=. tokens=1,2,3,4" %%i in ("%IP%") do set range=%%i.%%j.%%k

ECHO.&ECHO 正在进行第一步：扫描局域网内在线计算机名称，请稍候...

for /f "delims=" %%i in ('net view') do (

set "var=%%i"

::查询在线计算机名称

if "!var:~0,2!"=="\\" (

set "var=!var:~2!"

ECHO !var! >>局域网扫描报告.txt

ping -n 1 !var!>nul

))

ECHO 扫描完毕！

ECHO 正在进行第二步：扫描局域网内在线计算机IP地址，请稍候...

echo IP地址信息 >>局域网扫描报告.txt

for /f "skip=3 tokens=1,* delims= " %%i in ('arp -a') do ECHO IP： %%i >>局域网扫描报告.txt

ECHO 扫描完毕！

ECHO 请打开“局域网扫描报告”查看...

ECHO 请按任意键退出...

pause>nul

保存并关闭记事本后重命名记事本后缀名称，将txt改为bat即可。