下面是JM写的代码,可能对你有用!~

复制代码 代码如下:
@echooff
::考虑到程序并非都安装在系统盘下，所以还要用!str:~-1!来截取盘符
::如果路径中含有N个中文字符的话，此路径的最后N个字符将不显示(一个中文字符占两个字符位)
::codebyjm2006-7-27
setlocalenabledelayedexpansion
echo.
echo开机自启动的程序有：
echo.
for/f"skip=4tokens=1*delims=:"%%iin('regqueryHKLM\Software\Microsoft\Windows\CurrentVersion\Run')do(
setstr=%%i
setvar=%%j
set"var=!var:"=!"
ifnot"!var:~-1!"=="="echo!str:~-1!:!var!
)
pause>nul

复制代码 代码如下:
@ECHOOFF
SETRQ=REGQUERY
SETCU=HKEY_CURRENT_USER
SETLM=HKEY_LOCAL_MACHINE
SETFS=FINDSTR/V/B"!HKEY_"^|FINDSTR"."
SETWS=\Software\Microsoft\Windows\CurrentVersion\
SETWT=\Software\Microsoft\WindowsNT\CurrentVersion\
SETCK=\SYSTEM\CurrentControlSet\Control\SessionManager
SETRT=LoadUserinitWindowsWinlogonShellRunOnceExPolicies\Explorer\RunBootExecute
SETRP=ECHO-------------------------------------------------------------------------------

%RP%&ECHO%ALLUSERSPROFILE%^&%USERNAME%\「开始」菜单\程序\启动
FOR%%iIN(ALLUSERSPROFILE;USERPROFILE)DOCALLDIR/B/S"%%%%i%%\「开始」菜单\程序\启动"
%RP%

FOR/F"tokens=1-8delims=:"%%AIN('FINDSTR/B"::""%~nx0"')DO(
CALL:REGQUERY1%%A%%B%%C%%D%%E%%F%%G">NUL"
)
SET/A1/%~12>NUL&&GOTO:EOF
SET/pCONU=导出为文本文档?(Y/N):
ECHO%CONU%|FIND/I"N"1>NUL2<&1&&GOTO:EOF
CALL%~nx01>%~n0%.txt
ECHOfilelist:%~dpn0%.txt
PAUSE>NUL&"%~dpn0%.txt"
GOTO:EOF
::CUWT127V04
::LMWT198V48
::LMWT198V275
::CUWS323S00
::LMWS323S00
::CUWS327S00
::LMWS327S00
::CUWS329S00
::LMWS329S00
::CUWS4121S00
::LMWS4121S00
::LMCK00V6211
:REGQUERY
CALLSETPR=%%%~2%%%%%~3%%%%rt:~%~4,%~5%%&CALLSETPZ=%%rt:~%~7,%~8%%
ECHO[%PR%]%~9&%RQ%"%PR%"/%6%PZ%2>NUL|%FS%%~9&&%RP%&&SET/A1/%12>NUL&&CALL%00%2%3%4%5%6%7%8
GOTO:EOF