::【获取lnk快捷方式指向的目标文件（%~1————快捷方式路径{含.lnk}）】
@echo off
::【检测（是否在PE中运行），是向下运行，否跳到:A】
if not exist "X:\windows\"   goto :A
copy /y "%~dp0cscript.exe" "X:\Windows\System32\cscript.exe"

:A
set "M=%~1"
>"%tmp%\t.t" echo;WSH.echo CreateObject("WScript.Shell").CreateShortcut(WSH.Arguments(0)).targetpath
for /f "delims=" %%a in ('cscript -nologo -e:vbscript "%tmp%\t.t" "%M%"') do echo;%%a>"%~dp0路径.txt"
start "" "%~dp0路径.txt"
exit
复制代码

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

set /p =lnkpath:<nul & dir /b /s "%%l"
复制代码

@if(0)==(0) echo off
cd /d "%~dp0"
dir /b /a-d /s *.LNK | cscript //nologo //e:jscript "%~f0"
pause & exit
@end

var oShell = new ActiveXObject('WScript.Shell');
while(!WSH.StdIn.AtEndOfStream){
    var strFile = WSH.StdIn.ReadLine();
    var oLink = oShell.CreateShortcut(strFile);
    WSH.Echo('Source: ' + strFile);
    WSH.Echo('Target: ' + oLink.TargetPath + ' ' + oLink.Arguments);
}
复制代码