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

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

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

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

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