批处理列出系统中的COM组件。

echo off

:: 列出系统中的ActiveX组件。
if exist reg_activeX.txt erase reg_activeX.txt

for /f "tokens=1-4 delims=\" %%i in ('reg Query HKCR\CLSID\') do (
  1>nul 2>&1 reg Query HKCR\CLSID\\%%k\ProgID\ && (
    for /f "tokens=1-3,* skip=4" %%a in ('reg Query HKCR\CLSID\\%%k /ve 2^>nul') do (
      echo.%%k %%d>>reg_activeX.txt)))


if exist reg_prog.txt erase reg_prog.txt

for /f "tokens=1-4 delims=\" %%i in ('reg Query HKCR\CLSID\') do (
  1>nul 2>&1 reg Query HKCR\CLSID\\%%k\Programmable\ && (
    for /f "tokens=1-3,* skip=4" %%a in ('reg Query HKCR\CLSID\\%%k /ve 2^>nul') do (
      echo.%%k %%d>>reg_prog.txt)))


:: 测试...
set $add=no

if exist reg_shellfolder.txt erase reg_shellfolder.txt

for /f "tokens=1-4 delims=\" %%i in ('reg Query HKCR\CLSID\') do (
  1>nul 2>&1 reg Query HKCR\CLSID\\%%k\ShellFolder\ && (
    for /f "tokens=1-3,* skip=4" %%a in ('reg Query HKCR\CLSID\\%%k /ve 2^>nul') do (
      echo.%%k %%d>>reg_shellfolder.txt
      if @%$add%==@yes (
        reg Add HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\NameSpace\%%k /ve /d "%%d" /f ))))


::CMD for /f "tokens=1,*" %i in (reg.txt) do findstr "%i" m.txt && echo.1^>nul 2^>nul reg Add HKLM\OXX\%i /f /ve /d "%j" ^&^& echo.PASS ^|^| echo.FAIL>>mycomputer.bat


:: 把下面的系统文件夹放到我的电脑中。在桌面上打开我的电脑就能看到这些文件夹出现在磁盘列表下面。
set $subkey=HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\NameSpace\

for %%i in (
  {0DF44EAA-FF21-4412-828E-260A8728E7F1}#"Taskbar and Start Menu"
  {2559a1f1-21d7-11d4-bdaf-00c04f60b9f0}#"Help and Support"
  {2559a1f3-21d7-11d4-bdaf-00c04f60b9f0}#"Run..."
  {2559a1f7-21d7-11d4-bdaf-00c04f60b9f0}#"Set Program Access and Defaults"
  {6DFD7C5C-2451-11d3-A299-00C04F8EF6AF}#"Folder Options"
  {7007ACC7-3202-11D1-AAD2-00805FC1270E}#"Network Connections"
  {7A9D77BD-5403-11d2-8785-2E0420524153}#"User Accounts"
  {7BD29E00-76C1-11CF-9DD0-00A0C9034933}#"Temporary Internet Files"
  {D20EA4E1-3957-11d2-A40B-0C5020524153}#"Administrative Tools"
  {D6277990-4C6A-11CF-8D87-00AA0060F5BF}#"Scheduled Tasks"
  {FB0C9C8A-6C50-11D1-9F1D-0000F8757FCD}#"Scanners & Cameras") do (
  for /f "tokens=1,2 delims=#" %%x in ("%%i") do (
    1>nul 2>&1 reg Add %$subkey%%%x /ve /f /d "%%~y" && (
      echo.PASS  ==^> %%x) || (
      echo.FAIL  ==^> %%x)))

1>nul 2>&1 RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters