[已解决]在线ip-计算机名-自动扫描.bat，这个代码帮忙修改下。。。谢谢。。

ygqiang

[已解决]

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. set "aa=          "
   
4. cd.>在线ip-计算机名.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. 
    
18. 
    
19. del /f /q 在线ip-计算机名.txt >nul 2>nul
    
20. 
    
21. 
    
22. for /l %%m in (1,1,254) do (
    
23.         ping.exe %a%.%%m -n 1 -w 300 >nul&&Call :getname %a%.%%m
    
24. )
    
25. 
    
26. echo "查询结束"
    
27. exit
    
28. 
    
29. 
    
30. :getname
    
31. set iip=%1
    
32. set nname=
    
33. for /f "delims=" %%i in ('nbtstat -a !iip! ^| find /i "<00>  UNIQUE"') do (
    
34.         echo %%i
    
35.         set tii=%%i
    
36.         for /f "tokens=1 delims=< " %%j in ("!tii!") do echo !iip!!aa!%%j>>在线ip-计算机名.txt
    
37. goto :aa
    
38.         )
    
39. for /f "delims=" %%j in ('nbtstat -a !iip! ^| find /i "Host not found"') do (
    
40.         echo %%j
    
41.         echo !iip!>>在线ip-计算机名.txt
    
42. )
    
43. :aa
    

复制代码

在线ip-计算机名-自动扫描.bat，这个代码帮忙修改下。。。谢谢。。

这个bat代码，生成的txt文件内容如下：

1. 
   
2. 192.168.8.11          CB1
   
3. 192.168.8.12          CB2
   
4. 192.168.8.13          CB3
   
5. 192.168.8.14          CB4
   
6. 192.168.8.15          CB5
   
7. 192.168.8.16          CB6

复制代码

如何修改下bat代码，生成如下txt的内容呢？

1. 
   
2. CB1              192.168.8.11         
   
3. CB2              192.168.8.12         
   
4. CB3              192.168.8.13         
   
5. CB4              192.168.8.14         
   
6. CB5              192.168.8.15         
   
7. CB6              192.168.8.16

复制代码

DAIC

for /f "tokens=1 delims=< " %%j in ("!tii!") do echo %%j!aa!!iip!>>在线ip-计算机名.txt

ygqiang

已经解决。。。。

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

复制代码