[Iska]

Bruce Wayne, средствами заявленной категории — нет, не возможно возможно отчасти. Можно, например, средствами WSH.

Обычные ярлыки:

Код:

Option Explicit

With WScript.CreateObject("WScript.Shell")
	WScript.Echo .CreateShortcut("C:\Documents and Settings\All Users\Главное меню\Программы\Стандартные\Paint.lnk").TargetPath
End With

WScript.Quit 0

Т.н. «Advertised shortcuts»:

Код:

Option Explicit

Dim strGUID_ProductCode
Dim strGUID_ComponentCode

Dim srtShortcutPath
Dim strTargetPath


With WScript.CreateObject("WindowsInstaller.Installer")
    srtShortcutPath = "C:\Documents and Settings\All Users\Главное меню\Программы\Microsoft Office\Microsoft Office Word 2003.lnk"
    'srtShortcutPath = "C:\Documents and Settings\All Users\Главное меню\Программы\Microsoft Office\Microsoft Office Excel 2003.lnk"
    'srtShortcutPath = "C:\Documents and Settings\All Users\Главное меню\Программы\Microsoft Office\Microsoft Office Access 2003.lnk"
    'srtShortcutPath = "C:\Documents and Settings\All Users\Главное меню\Программы\Skype\Skype.lnk"
    
    With .ShortcutTarget(srtShortcutPath)
        strGUID_ProductCode   = .StringData(1)
        strGUID_ComponentCode = .StringData(3)
    End With
    
    strTargetPath = .ComponentPath(strGUID_ProductCode, strGUID_ComponentCode)
    
    WScript.Echo "Target path: ", strTargetPath
    WScript.Echo "File version:", .FileVersion(strTargetPath)
End With

WScript.Quit 0

[El Sanchez]

Bruce Wayne, вариант через WMIC:

Код:

@Echo Off
SetLocal

Set LnkFilePath=C:\Users\Public\Desktop\f.e.a.r. 3.lnk

For /F "Tokens=1* Delims==" %%A In ('WMIC Path Win32_ShortcutFile Where ^"Name^=^'%%LnkFilePath:\^=\\%%^'^" Get Target /Value 2^>nul^|FindStr .') Do Echo:%%B>Log.log

[Iska]

El Sanchez, отчего не используете предикат «usebackq»:

Код:

@echo off
setlocal enableextensions enabledelayedexpansion

set sLnkFilePath=C:\Documents and Settings\All Users\Главное меню\Программы\Стандартные\Paint.lnk

for /f "usebackq tokens=1* delims==" %%i in (
	`wmic.exe Path Win32_ShortcutFile where "Name='%sLnkFilePath:\=\\%'" Get Target /Value 2^>nul^|FindStr .`
) do echo %%j

endlocal
exit /b 0

?

[El Sanchez]

отчего не используете предикат «usebackq»: »

Iska, редко использую, поэтому забываю для чего он нужен.

[Bruce Wayne]

El Sanchez, Iska, спасибо вам огромное! А на XP такое можно провернуть?

[Iska]

El Sanchez, ясно. Просто проще использовать предикат, нежели экранировать символы.

Bruce Wayne, у меня как раз Windows XP. Само собой, у меня работает и код коллеги El Sanchez.

[Bruce Wayne]

Iska, странно, а у меня пишет, что

Код:

"wmic" не является внутренней или внешней командой, исполняемой программой или пакетным файлом.

Может, использование этой программы зависит от состояния какой-либо службы? Разберусь с этим) Спасибо ещё раз за помощь! Вопрос исчерпан.

[Iska]

Bruce Wayne, «wmic.exe» отсутствует в Home-редакциях и ниже. У Вас какая редакция ОС использовалась?

[Petya V4sechkin]

Bruce Wayne, в дополнение к вышесказанному проверьте переменную PATH.