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

ygqiang

1. @echo off
   
2. 
   
3. for /f "tokens=15 delims= " %%i in ('ipconfig ^| find /i "IP Address"') do (
   
4.     set fsip=%%i
   
5. )
   
6. echo %fsip%
   
7. 
   
8. 
   
9. for /f "tokens=1,2,3 delims=." %%i in ("%fsip%") do (
   
10.     set a=%%i.%%j.%%k
    
11. )
    
12. 
    
13. set Gateway=%a%.1
    
14. echo %a%
    
15. 
    
16. del /f /q 在线ip.txt
    
17. 
    
18. for /l %%m in (1,1,254) do (
    
19. 
    
20.         ping.exe %a%.%%m -n 1 -w 300 >nul&&echo %a%.%%m>>在线ip.txt
    
21. 
    
22. )
    
23. 
    
24. exit

复制代码

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

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. set "blank20=                    "
   
4. cd.>1.txt
   
5. for /f "delims=" %%i in ('net view^|find "\"') do (
   
6.     set "var=%%i"
   
7.     set "var=!var:~2!"
   
8.     CALL :GetIP !var!
   
9. )
   
10. pause>nul
    
11. exit
    
12. 
    
13. :GetIP
    
14. set hostname=%1
    
15. set hnIP=
    
16. for /f "tokens=2 delims=[]" %%j in ('ping -4 -n 1 %hostname%') do (
    
17.     set hnIP=%%j
    
18.     goto :ExitFor
    
19. )
    
20. :ExitFor
    
21. set hostname20=%hostname%%blank20%
    
22. set hostname20=%hostname20:~0,20%
    
23. echo %hostname20%%hnIP%>>1.txt
    
24. 
    
25. 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

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. set "aa=          "
   
4. cd.>22.txt
   
5. for /f "tokens=15 delims= " %%i in ('ipconfig ^| find /i "IP Address"') do (
   
6.     set fsip=%%i
   
7. )
   
8. echo %fsip%
   
9. 
   
10. 
    
11. for /f "tokens=1,2,3 delims=." %%i in ("%fsip%") do (
    
12.     set a=%%i.%%j.%%k
    
13. )
    
14. 
    
15. 
    
16. set Gateway=%a%.1
    
17. echo %a%
    
18. 
    
19. ::del /f /q 在线ip.txt
    
20. 
    
21. for /l %%m in (1,1,254) do (
    
22.                 echo 查询%a%.%%m
    
23.         ping.exe %a%.%%m -n 1 -w 300 >nul&&Call :getname %a%.%%m
    
24. 
    
25. )
    
26. 
    
27. echo "查询结束"
    
28. exit
    
29. 
    
30. 
    
31. :getname
    
32. set iip=%1
    
33. set nname=
    
34. echo %iip%
    
35. for /f "delims=" %%i in ('nbtstat -a !iip! ^| find /i "<00>  UNIQUE"') do (
    
36.         echo %%i
    
37.         set tii=%%i
    
38.         for /f "tokens=1 delims=< " %%j in ("!tii!") do echo !iip!!aa!%%j>>22.txt
    
39. goto :aa
    
40.         )
    
41. for /f "delims=" %%j in ('nbtstat -a !iip! ^| find /i "Host not found"') do (
    
42.         echo %%j
    
43.         echo !iip!>>22.txt
    
44. )
    
45. :aa
    

复制代码

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