批处理如何获取局域网在线主机IP和主机名？

TAO醉

最好显示出列表形式，能够一一对应
例如：
主机名              ip
aaa                 192.168.1.1

请高手指点。
在网上找到一段bat程序，代码如下：
如何修改能实现，我上述的要求啊，菜鸟求教

1. COLOR 0A
   
2. CLS
   
3. @ECHO Off
   
4. Title 查询局域网内在线电脑IP
   
5. :send
   
6. @ECHO off&setlocal enabledelayedexpansion
   
7. 
   
8. ECHO 正在获取本机的IP地址，请稍等...
   
9. for /f "tokens=3 skip=2 delims=: " %%i in ('nbtstat -n') do (
   
10. set "IP=%%i"
    
11. set IP=!IP:~1,-1!
    
12. ECHO 本机IP为：!IP!
    
13. goto :next
    
14. )
    
15. 
    
16. :next
    
17. for /f "delims=. tokens=1,2,3,4" %%i in ("%IP%") do set range=%%i.%%j.%%k
    
18. ECHO.&ECHO 正在获取本网段内的其它在线计算机名，请稍等...
    
19. ECHO 本网段【%range%.*】内的计算机有：
    
20. for /f "delims=" %%i in ('net view') do (
    
21. set "var=%%i"
    
22. ::查询在线计算机名称
    
23. if "!var:~0,2!"=="\" (
    
24. set "var=!var:~2!"
    
25. ECHO !var!
    
26. ping -n 1 !var!>nul
    
27. ))
    
28. ECHO.
    
29. ECHO 正在获取本网段内的其它在线计算机IP，请稍等...
    
30. for /f "skip=3 tokens=1,* delims= " %%i in ('arp -a') do ECHO IP： %%i 正在使用
    
31. 
    
32. ECHO.
    
33. ECHO 查询完毕，按任意键退出...
    
34. pause>nul
    

复制代码

Batcher

你用这个代码得到的结果是什么样子的？

TAO醉

回复 2# Batcher

现在的代码执行的效果如下：
本网段【%range%.*】内的计算机有：
aaa-pc
bbb-pc
ccc-pc

正在获取本网段内的其它在线计算机IP，请稍等...
192.168.1.1
192.168.1.2
192.168.1.3

注意：
这里的主机名和IP不是一一对应的，主机名按照字母排序，IP按照int值排序。比如，bbb-pc的IP可能就是192.168.1.3。

TAO醉

回复 2# Batcher


我想实现的是，想让主机名和IP一一对应起来。
比如：
主机名         IP
aaa-pc       192.168.1.2
bbb-pc       192.168.1.3
ccc-pc         192.168.1.1

gm8800

好像不行,我的网段是192.168.0-192.168.3,查询出来的在线的192.168.2.#只有几个,但是其实我局域网内192.168.2.#有很多很多在线的

ygqiang

回复 4# TAO醉

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

复制代码