[已解决]求修改：获取快捷方式指向的目标.bat，显示短路径，改为显示长路径，谢谢

yyz219

百度到优秀的bat：

1. 
   
2. ::【获取lnk快捷方式指向的目标文件（%~1————快捷方式路径{含.lnk}）】
   
3. @echo off
   
4. ::【检测（是否在PE中运行），是向下运行，否跳到:A】
   
5. if not exist "X:\windows"   goto :A
   
6. copy /y "%~dp0cscript.exe" "X:\Windows\System32\cscript.exe"
   
7. 
   
8. :A
   
9. set "M=%~1"
   
10. >"%tmp%\t.t" echo;WSH.echo CreateObject("WScript.Shell").CreateShortcut(WSH.Arguments(0)).targetpath
    
11. for /f "delims=" %%a in ('cscript -nologo -e:vbscript "%tmp%\t.t" "%M%"') do echo;%%a>"%~dp0路径.txt"
    
12. start "" "%~dp0路径.txt"
    
13. exit

复制代码

*********************************************************
原来的问题
求修改：获取快捷方式指向的目标.bat，显示短路径，改为显示长路径，谢谢
*****************************************************
已有“获取快捷方式指目标.bat”：

1. @echo off
   
2. for /f "delims=" %%i in ('dir/a-d/s/b/l/on ".\*.lnk"')do (
   
3. xcopy/y "%%i" "%programdata%\microsoft\windows\start menu\programs\startup" >nul 2>nul
   
4. for /f "delims=" %%j in ('wmic startup where description^="%%~ni" get * /value')do (
   
5.   for /f "tokens=1,* delims==" %%k in ("%%j")do (
   
6.    if /i "%%k"=="command" (
   
7.     ::echo,lnkname: %%~nxi
   
8.     echo,lnkpath: %%l
   
9.    )
   
10.   )
    
11. )
    
12. del/f/q "%programdata%\Microsoft\Windows\Start Menu\Programs\Startup\%%~nxi" >nul 2>nul
    
13. )
    
14. pause

复制代码

******************************************************************************
运行后显示：
lnkpath: J:\注册、~1.TXT
******************************************************************************
修改以后，希望运行后显示：
lnkpath: J:\注册、反注册dll.txt
谢谢

77七

你这个批处理是干嘛的...我水平太差了...看不明白，可以解释一下吗...

yyz219

你这个批处理是干嘛的...我水平太差了...看不明白，可以解释一下吗...
77七 发表于 2022-12-16 17:38

   本论坛的： [分享]wmic获取快捷方式指向的目标
http://www.bathome.net/viewthrea ... A%BD%2B%C4%BF%B1%EA

idwma

8行改成这样试试

1. set /p =lnkpath:<nul & dir /b /s "%%l"

复制代码

77七

回复 3# yyz219

原来如此，我看"指目标"，看半天...我运行提示没有可用实例。话说，你咋天天跟快捷方式干上了...有什么好玩的吗...

yyz219

8行改成这样试试
idwma 发表于 2022-12-16 20:18

    我试一试先 谢谢

yyz219

8行改成这样试试
idwma 发表于 2022-12-16 20:18

    不是桌面的文件  的 快捷方式  问题解决了

但是，如果是 桌面的文件  的 快捷方式 ，运行后显示：

lnkpath:  系统找不到指定的路径。
请按任意键继续. . .

还可以修改吗？谢谢

yyz219

8行改成这样试试
idwma 发表于 2022-12-16 20:18

    另外，长路径也不行：

lnkpath: 系统找不到指定的文件。
lnkpath: d:\1绿色~1\bat批~1\c盘使用情况 -dism++x64-.bat
lnkpath: d:\1绿色~1\系统\设置\个人文~1\个人文件转移工具1.6.exe
lnkpath: j:\注册、反注册dll.txt
请按任意键继续. . .

WHY

1. @if(0)==(0) echo off
   
2. cd /d "%~dp0"
   
3. dir /b /a-d /s *.LNK | cscript //nologo //e:jscript "%~f0"
   
4. pause & exit
   
5. @end
   
6. 
   
7. var oShell = new ActiveXObject('WScript.Shell');
   
8. while(!WSH.StdIn.AtEndOfStream){
   
9.     var strFile = WSH.StdIn.ReadLine();
   
10.     var oLink = oShell.CreateShortcut(strFile);
    
11.     WSH.Echo('Source: ' + strFile);
    
12.     WSH.Echo('Target: ' + oLink.TargetPath + ' ' + oLink.Arguments);
    
13. }

复制代码

yyz219

WHY 发表于 2022-12-16 21:26

    非常感谢你的帮助