@echo off
mode con: cols=50 lines=18
color a
for /f "skip=4 tokens=1,2 delims=:" %%a in ('reg query "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders" /v desktop') do (
  set QQPathL=%%a
  set QQPathR=%%b
)
echo 此时的^%%QQPathL^%%为：%QQPathL%
echo 此时的^%%QQPathR^%%为：%QQPathR%
pause
set QQPath=%QQPathL:~-1%:%QQPathR%
echo.&echo.&echo.&echo.
echo       您桌面文件夹的位置为：
echo       %QQPath%
pause >nul
复制代码

@echo off
echo wscript.echo CreateObject("WScript.Shell").RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\desktop") >t~.vbs
for /f "delims=" %%a in ('cscript //nologo t~.vbs') do set "mydesk=%%a"
echo %mydesk%
del t~.vbs & echo. & pause
复制代码

@echo off
setlocal enabledelayedexpansion
echo.
echo                开机自启动的程序有：
echo.
for /f "skip=4 tokens=1* delims=:" %%i in ('reg query HKLM\Software\Microsoft\Windows\CurrentVersion\Run') do (
    set str=%%i
    set var=%%j
    set "var=!var:"=!"
    if not "!var:~-1!"=="=" echo !str:~-1!:!var!
)
pause>nul
复制代码

Set WshShell = Wscript.CreateObject("Wscript.Shell")
tt=WshShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Start Menu") '' Read from value "Val"
Wscript.echo tt
复制代码