::【拖到这里：快捷方式所指向目标保存文本"#.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
复制代码

@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
复制代码

@echo off
set /p T=【右键】粘贴.lnk路径:
for /f "delims=" %%i in ('type %T%^|find ":\"') do (
    set "mubiao=%%i"
)
echo "%mubiao%"
pause
复制代码

@echo off
@rem 保存为ANSI格式
for /f "tokens=* delims=" %%a in ('type "%~1"^|find ":\"') do set dp=%%~a
echo;%dp%
pause
复制代码

@echo off
powershell "$objShell = New-Object -ComObject WScript.Shell; $objShell.CreateShortcut('D:\桌面\Desktop\关机.lnk').TargetPath"
pause
复制代码

@echo off
set /p T=【右键】粘贴.lnk路径
for /f "delims=" %%i in ('find ":" "%t%" ^|findstr /r "^[A-z]:[\\]"') do (
      echo "%%~dpi"
)
pause
复制代码

for /f "eol=/ delims=" %%i in ('find ":\" ^<"%t%"') do echo;%i
复制代码

s = CreateObject("htmlfile").parentWindow.clipboardData.getData("text")
s = InputBox("【右键】粘贴.lnk路径", , s)
Set oWshShell = CreateObject("WScript.Shell")
Set oWshShortcut = oWshShell.CreateShortcut(s)
MsgBox oWshShortcut.TargetPath
复制代码

1>1/* :
@echo off
cscript //E:JScript //nologo "%~f0">#.txt
exit
*/
var ph = new ActiveXObject('htmlfile').parentWindow.clipboardData.getData('Text');
var ws = new ActiveXObject("WScript.Shell");
WSH.Echo(ws.CreateShortcut(ph).TargetPath);
复制代码

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()
复制代码

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);
复制代码

@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
复制代码

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