批处理代码合并加工处理

holley2008

没搞懂你的意思，简单合并就这样

1. @echo off & setlocal enabledelayedexpansion  
   
2. echo     =-----------------------------------------=
   
3. echo     =  本BAT只列出一个有线和一个无线的IP信息  =
   
4. echo     =           读取信息请耐心等待            =
   
5. echo     =-----------------------------------------=
   
6. echo.
   
7. for /f "tokens=1 delims=[]" %%i in ('%SystemRoot%\system32\nbtstat -S^|find /n "以太网:"') do (
   
8.     nbtstat -S | more +%%i >$
   
9.     set /p Str=<$
   
10.     del $
    
11.     for /f "tokens=2 delims=[]" %%i in ('echo "!Str!"') do set LIP=%%i
    
12. )
    
13. for /f "tokens=1 delims=[]" %%i in ('%SystemRoot%\system32\nbtstat -S^|find /n "WLAN:"') do (
    
14.     nbtstat -S | more +%%i >$
    
15.     set /p Str=<$
    
16.     del $
    
17.     for /f "tokens=2 delims=[]" %%i in ('echo "!Str!"') do set WIP=%%i
    
18. )
    
19. for /f "tokens=16" %%i in ('ipconfig /all ^| find /i "IPv4 地址"') do set ip=%%i  
    
20. 
    
21. echo ===================================================  >ip-mac.txt
    
22. echo 当前时间：%DATE%  >>ip-mac.txt
    
23. echo ===================================================  >>ip-mac.txt
    
24. echo 本机用户名为：%COMPUTERNAME% >>ip-mac.txt
    
25. echo ===================================================  >>ip-mac.txt
    
26. echo 本机有线IP为：%LIP% >>ip-mac.txt
    
27. echo 本机无线IP为：%WIP% >>ip-mac.txt
    
28. ::echo 本机首选IP为：%ip% >>ip-mac.txt
    
29. echo 本机物理地址： >>ip-mac.txt
    
30. echo ===================================================
    
31. for /f "tokens=1,3 delims=," %%i in ('getmac /v /nh /fo:csv ^| findstr
    
32. "..-..-..-..-..-.."') do (
    
33.     echo %%i %%j  >>ip-mac.txt
    
34. )
    
35. echo ===================================================  >>ip-mac.txt
    
36. ipconfig | findstr /i "以太网 无线 IPv4">>ip-mac.txt
    
37. echo ===================================================  >>ip-mac.txt
    
38. echo =====本机已安装软件信息===================================  >>ip-mac.txt
    
39. echo ===================================================  >>ip-mac.txt
    
40. cd /d %~dp0
    
41. for /f "tokens=7* delims=" %%i in ('reg query HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall') do (
    
42.     echo 当前扫描信息: HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\%%~i
    
43.     reg export "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\%%~i" reg.$ >nul
    
44.     for /f "delims=" %%j in ('type reg.$ ^| findstr /i /c:"DisplayName" 2^>nul') do (
    
45.         set DN=%%~j
    
46.         set DN=!DN:"=!
    
47.         set !DN!
    
48.     )
    
49.     for /f "delims=" %%k in ('type reg.$ ^| findstr /i /c:"InstallLocation" 2^>nul') do (
    
50.         set IL=%%~k
    
51.         set IL=!IL:"=!
    
52.         set IL=!IL:\\=\!
    
53.         set !IL!
    
54.     )
    
55.     if not defined DisplayName set DisplayName=没有信息。
    
56.     if not defined InstallLocation set InstallLocation=没有信息。
    
57.     (echo  +++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    
58.     echo  注册表值: %%~i
    
59.     echo  软件名称: !DisplayName!
    
60.     echo  安装路径: !InstallLocation!
    
61.     echo  +++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    
62.     echo,)>>ip-mac.txt
    
63.     set DisplayName=&set InstallLocation=&del reg.$
    
64. )
    
65. 
    
66. Start ip-mac.txt

复制代码

holley2008

holley2008 发表于 2022-9-13 09:24
没搞懂你的意思，简单合并就这样

那就有可能是你的软件列表在这个地方：
HKLM\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall

holley2008

shimeng0624 发表于 2022-9-14 17:11
其实你分别运行一下这两个批处理，就知道了，单独运行没有问题，只是我想合并成一个操作起来更方便。

用我合成的这段 我win10专业版 获取正常

holley2008

shimeng0624 发表于 2022-9-15 08:59
我的LTSC版运行后就下面这些信息，没有软件列表信息。也没有保存，只是直接打开了文件。
============== ...

刚试了下，好像粘贴出来确实有问题，直接附件了。

holley2008

shimeng0624 发表于 2022-9-16 08:06
感谢，附件基本没有问题，要是能再优化一下就更好了。文件命名要是能以获取到的IP命名就更好了，电脑太多 ...

脚本里的ip-mac.txt替换成!LIP!.txt就可以了