reg query 查询结果设置为变量

baolizhu

@echo off
>nul 2>&1 "%SYSTEMROOT%\system32\cacls.exe" "%SYSTEMROOT%\system32\config\system"
if '%errorlevel%' NEQ '0' (
goto UACPrompt
) else ( goto gotAdmin )
:UACPrompt
echo Set UAC = CreateObject^("Shell.Application"^) > "%temp%\getadmin.vbs"
echo UAC.ShellExecute "%~s0", "", "", "runas", 1 >> "%temp%\getadmin.vbs"
"%temp%\getadmin.vbs"
exit /B
:gotAdmin
if exist "%temp%\getadmin.vbs" ( del "%temp%\getadmin.vbs" )
pushd "%CD%"
:bebin
title 修改桌面此电脑和网络等图标的提示"文字"
color 0a
echo.
echo.
echo.
echo 修改Win10桌面上'此电脑'和'网络'等图标的提示"文字"
echo.
echo.
echo.
echo.
echo.
REG QUERY "HKCU\Software\Classes\Local Settings\MuiCache"
echo.
echo 复制"HKEY_CURRENT_USER\Software\Classes\Local Settings\MuiCache\最后两位"
echo.
echo.
set /p jz=请输入你刚刚看到的上面最后两位数：(如d1、1a、4b等)：

Reg.exe add "HKCU\Software\Classes\Local Settings\MuiCache\%jz%\AAF68885" /v "@C:\Windows\system32\windows.storage.dll,-9216" /t REG_SZ /d "我的电脑" /f>nul 1>nul
Reg.exe add "HKCU\Software\Classes\Local Settings\MuiCache\%jz%\AAF68885" /v "@C:\Windows\system32\NetworkExplorer.dll,-1" /t REG_SZ /d "网上邻居" /f>nul 1>nul
cls
goto bebin

baolizhu

想把REG QUERY "HKCU\Software\Classes\Local Settings\MuiCache"查询结果设置为变量，因为在每台电脑上的变量都不一样，就不用每次都去手动选择。

chiannet

baolizhu 发表于 2023-8-23 10:39
想把REG QUERY "HKCU\Software\Classes\Local Settings\MuiCache"查询结果设置为变量，因为在每台电脑上的 ...

1. for /f "Delims=" %%i in ('REG QUERY "HKCU\Software\Classes\Local Settings\MuiCache"') do SET "A=%%i"
   
2. echo 最后两位是：%A:~-2%

复制代码

slore

我的机器上是204，不止2位。

1. 
   
2. for /f "tokens=6 delims=\" %%i in ('REG QUERY "HKCU\Software\Classes\Local Settings\MuiCache"') do set CacheID=%%i
   
3. echo %CacheID%
   

复制代码

chiannet

slore 发表于 2023-8-23 11:36
我的机器上是204，不止2位。

的确，引入“tokens”对本案更佳。

1. @echo off
   
2. for /f "tokens=6 delims=" %%i in ('REG QUERY "HKCU\Software\Classes\Local Settings\MuiCache"') do echo CacheID是：%%i
   
3. pause

复制代码

baolizhu

chiannet 发表于 2023-8-23 10:56

谢谢你。已经完美解决

baolizhu

可能有的电脑不止两个用户，如果有多作用户名的可能就不是两位。最后把要实现的效果分享给大家，谢谢大家的支持。

baolizhu

@echo off
>nul 2>&1 "%SYSTEMROOT%\system32\cacls.exe" "%SYSTEMROOT%\system32\config\system"
if '%errorlevel%' NEQ '0' (
goto UACPrompt
) else ( goto gotAdmin )
:UACPrompt
echo Set UAC = CreateObject^("Shell.Application"^) > "%temp%\getadmin.vbs"
echo UAC.ShellExecute "%~s0", "", "", "runas", 1 >> "%temp%\getadmin.vbs"
"%temp%\getadmin.vbs"
exit /B
:gotAdmin
if exist "%temp%\getadmin.vbs" ( del "%temp%\getadmin.vbs" )
pushd "%CD%"
:bebin
title 修改桌面此电脑和网络等图标的提示"文字"
color 0a
echo.
echo.
echo.
echo 修改Win10桌面上'此电脑'和'网络'等图标的提示"文字"
echo.
echo.
echo.
echo.
echo.
for /f "Delims=" %%i in ('REG QUERY "HKCU\Software\Classes\Local Settings\MuiCache"') do SET "A=%%i"
set wz=%A:~-2%
echo.
echo.
echo.
echo.
Reg.exe add "HKCU\Software\Classes\Local Settings\MuiCache\%wz%\AAF68885" /v "@C:\Windows\system32\windows.storage.dll,-9216" /t REG_SZ /d "我的电脑" /f>nul 1>nul
Reg.exe add "HKCU\Software\Classes\Local Settings\MuiCache\%wz%\AAF68885" /v "@C:\Windows\system32\NetworkExplorer.dll,-1" /t REG_SZ /d "网上邻居" /f>nul 1>nul
echo 按任意键退出
pause>nul 1>nul
exit

c5215016

好