作者:乔山办公网日期:
返回目录:office365
感觉这代码还是不错的,该注册表查询项的结抄果是多行,刚好要取的是最后一行,也就是说 变量袭a应最终是取到了要的结百果,即直接echo %a% 验证结果
如果取的不是最后一行则要把 ^|find "Desktop 加在do之前度的括号里
('reg query "%str%" /v Desktop ^|find "Desktop"')
@echo off
echo wscript.echo CreateObject("WScript.Shell").RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R20.0\InstalledProducts\")>%temp%\t~.vbs
for /f "delims=" %%a in ('cscript //nologo %temp%\t~.vbs') do set "mydesk=%%a"
copy /y d:\123\1.jpg %mydesk%\
copy /y d:\123\1.jpg %mydesk%\这句是拷贝copyd盘123文件夹下的1.jpg文件到你的路径,具体需百要你自己改路径d:\123\1.jpg
另:第二行度和第三行是一句话,不能分成知两句。
也就是说,复制到记道事簿里应该是这样的
试试来下面的代码
@自echo off&setlocal enabledelayedexpansion
for /f "tokens=1 delims=:" %%a in ('"reg query "hkey_local_machine\system\currentcontrolset\enum\ide" /s|zdfindstr /n "UserWriteCacheSetting""') do set /a num=%%a
set /a num=num-1
for /f "tokens=2 delims=:" %%i in ('"reg query "hkey_local_machine\system\currentcontrolset\enum\ide" /s|findstr/n .|findstr /b "%num%""') do set pa=%%i
echo !pa!
@echo off
for /f "delims=\ tokens=5,*" %%a in ('reg query HKLM\SOFTWARE\Microsoft\Office /f "." /k 2^>nul') do (
for /f "skip=1 tokens=2,* delims= " %%b in ('reg query HKLM\SOFTWARE\Microsoft\Office\%%~a\Word\InstallRoot /v Path') do (
set "WordPath=%%~c"
)
)
echo %WordPath%
pause