[网络连接] [已解决]如何将下面2个获取局域网计算机名与ip的代码，合并为1个bat代码？

ygqiang

@echo off

for /f "tokens=15 delims= " %%i in ('ipconfig ^| find /i "IP Address"') do (
    set fsip=%%i
)
echo %fsip%


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

set Gateway=%a%.1
echo %a%

del /f /q 在线ip.txt

for /l %%m in (1,1,254) do (

        ping.exe %a%.%%m -n 1 -w 300 >nul&&echo %a%.%%m>>在线ip.txt

)

exit
复制代码

上面这个bat代码，试验了2个局域网，都能正常保存在线计算机的ip到txt中。

@echo off
setlocal enabledelayedexpansion
set "blank20=                    "
cd.>1.txt
for /f "delims=" %%i in ('net view^|find "\\"') do (
    set "var=%%i"
    set "var=!var:~2!"
    CALL :GetIP !var!
)
pause>nul
exit

:GetIP
set hostname=%1
set hnIP=
for /f "tokens=2 delims=[]" %%j in ('ping -4 -n 1 %hostname%') do (
    set hnIP=%%j
    goto :ExitFor
)
:ExitFor
set hostname20=%hostname%%blank20%
set hostname20=%hostname20:~0,20%
echo %hostname20%%hnIP%>>1.txt

exit
复制代码

而上面这个bat代码，在有的局域网结果正常。但有的局域网，只能保存自己的计算机名字与ip到txt中。
并不能保存别的计算机名字与ip。



能否将2个bat代码合并下，实现：

如果不能获取并保存局域网内其他机器的计算机名，就只保存ip到txt文件（计算机名字的位置留空就可以），txt显示格式为：

WJLJFN001                  192.168.9.32
                                    192.168.9.8
                                    192.168.9.1
                                    192.168.9.9
user13f                        192.168.9.44

（最好计算机名字的最前头与ip的最前头，都间隔20个字符）

ygqiang

如果计算机名获取不到，就继续获取ip，并保存到txt

ygqiang

@echo off
setlocal enabledelayedexpansion
set "aa=          "
cd.>22.txt
for /f "tokens=15 delims= " %%i in ('ipconfig ^| find /i "IP Address"') do (
    set fsip=%%i
)
echo %fsip%


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


set Gateway=%a%.1
echo %a%

::del /f /q 在线ip.txt

for /l %%m in (1,1,254) do (
		echo 查询%a%.%%m
        ping.exe %a%.%%m -n 1 -w 300 >nul&&Call :getname %a%.%%m

)

echo "查询结束"
exit


:getname
set iip=%1
set nname=
echo %iip%
for /f "delims=" %%i in ('nbtstat -a !iip! ^| find /i "<00>  UNIQUE"') do (
	echo %%i
	set tii=%%i
	for /f "tokens=1 delims=< " %%j in ("!tii!") do echo !iip!!aa!%%j>>22.txt
goto :aa
	)
for /f "delims=" %%j in ('nbtstat -a !iip! ^| find /i "Host not found"') do (
	echo %%j
	echo !iip!>>22.txt
)
:aa
复制代码

这个代码，可以解决问题，多谢了。