[其他] [已解决]帮我看下“查找快捷方式所指向目标.bat”那里出了问题，谢谢

yyz219

最佳方案：
（主要这些代码能够在PE中运行）
快捷方式所指向目标保存文本.bat

::【拖到这里：快捷方式所指向目标保存文本"#.txt"】
@echo off
>"快捷方式所指向目标保存文本.vbs" echo Set oWshShell = CreateObject("WScript.Shell")
>>"快捷方式所指向目标保存文本.vbs" echo Set oWshShortcut = oWshShell.CreateShortcut("%~1")
>>"快捷方式所指向目标保存文本.vbs" echo Dim fso, MyFile
>>"快捷方式所指向目标保存文本.vbs" echo Set fso = CreateObject("Scripting.FileSystemObject")
>>"快捷方式所指向目标保存文本.vbs" echo Set MyFile = fso.CreateTextFile("#.txt", True)
>>"快捷方式所指向目标保存文本.vbs" echo MyFile.WriteLine(oWshShortcut.TargetPath)
>>"快捷方式所指向目标保存文本.vbs" echo MyFile.Close

快捷方式所指向目标保存文本.vbs
del /q 快捷方式所指向目标保存文本.vbs
exit
复制代码

********************************
原来的问题：
查找快捷方式所指向目标.bat

@echo off&setlocal enabledelayedexpansion
set /p T=【右键】粘贴.lnk路径:
for /f "tokens=* delims=" %%i in ('type "%T%"^|find ":\"') do (
      set /a n=n%%2+1
      if !N! equ 2 echo %%i
)
pause
复制代码

要达到的效果：输入快捷方式路径（含扩展名），能够显示出快捷方式所指向目标
**********************************************************
实际情况：
1.输入：D:\桌面\Desktop\Dism++.lnk，能够正确显示
2.输入：D:\桌面\Desktop\关机.lnk，没有显示
另外，如果文件路径中有 ！号，也不能够正确显示（！号丢失）
*************************************************************
上面两个快捷方式实际所指向目标是：
D:\桌面\Desktop\Dism++.lnk————"D:\1绿色软件\bat批处理\C盘使用情况 -Dism++x64-.bat"
D:\桌面\Desktop\关机.lnk——————D:\1绿色软件\bat批处理\注销＋重新启动\关机.bat
————————————————————————————————————————————
问题不知道出现在哪里？谢谢

yyz219

weiPE 指"微PE"是吗？
原版微PE肯定是不支持WMIC的，更不支持PowerShell、VBS脚本
如果你的Win ...
WHY 发表于 2022-12-30 23:31

    非常感谢

WHY

正常系统中正常

在weiPE中不行
yyz219 发表于 2022-12-30 12:22

    weiPE 指"微PE"是吗？
原版微PE肯定是不支持WMIC的，更不支持PowerShell、VBS脚本
如果你的WinPE支持VBS，那就直接用VBS脚本，没必要弄个临时文件再转成BAT

这样也许能行（前提是：你的WinPE支持mshta协议）：

@echo off
REM 把Lnk文件拖到这里
mshta VBScript:Execute("s=CreateObject(""WScript.Shell"").CreateShortcut(""%~f1"").TargetPath:CreateObject(""Scripting.FileSystemObject"").OpenTextFile(""#.txt"",2,True).Write(s):close")
复制代码

yyz219

WHY 发表于 2022-12-30 12:00

    正常系统中正常

在weiPE中不行

yyz219

WHY 发表于 2022-12-30 12:00

    辛苦了，非常感谢

WHY

@echo off
set "Lnk=D:\桌面\Desktop\关机.lnk"
for /f "delims=" %%i in ('wmic Path Win32_ShortcutFile where "Name='%Lnk:\=\\%'" get target /format:List ^| find ":"') do (
    set "%%i"
)
echo;%target%
pause
复制代码

yyz219

看你已解决了，还是发上来吧，应该符合你的需求，保存为BAT文件 直接运行回复  yyz219
terse 发表于 2022-12-29 11:51

   如果 前面和后面，还有代码就不行吗？

yyz219

看你已解决了，还是发上来吧，应该符合你的需求，保存为BAT文件 直接运行回复  yyz219
terse 发表于 2022-12-29 11:51

    非常感谢 我试一试

terse

看你已解决了，还是发上来吧，应该符合你的需求，保存为BAT文件 直接运行

1>1/* : @echo off &cscript //E:JScript //nologo "%~f0" "D:\桌面\Desktop\关机.lnk" >#.txt &exit */
WSH.Echo(new ActiveXObject("WScript.Shell").CreateShortcut(WSH.Arguments(0)).TargetPath);
复制代码

回复 37# yyz219

yyz219

回复  yyz219
czjt1234 发表于 2022-12-29 09:01

    非常感谢  问题解决了

czjt1234

回复 32# yyz219


  

s = "D:\桌面\Desktop\关机.lnk"
f = "#.txt"

Set oWshShell = CreateObject("WScript.Shell")
Set oWshShortcut = oWshShell.CreateShortcut(s)
s = oWshShortcut.TargetPath
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oTextStream = oFSO.OpenTextFile(f, 2, True)
oTextStream.Write s
oTextStream.Close()
复制代码

yyz219

存为bat文件
terse 发表于 2022-12-28 22:54

    运行？拖到图标？

terse

我不知道怎么使用
yyz219 发表于 2022-12-28 19:58

    存为bat文件

yyz219

WScript.Shell 解决部分问题 某些情况下可以用ADODB.Stream处理一下
terse 发表于 2022-12-28 19:53

    我不知道怎么使用

yyz219

WScript.Shell 解决部分问题 某些情况下可以用ADODB.Stream处理一下
terse 发表于 2022-12-28 19:53

    我试一试 谢谢