Python-сообщество

        
........................................
        winpath =  os.path.normpath(filename)
        vbs = win32com.client.Dispatch("ScriptControl")
        vbs.language = "vbscript"
        scode="""
            Option Explicit
            Function getTarget(path)
            Dim MSITarget
            With CreateObject("WindowsInstaller.Installer")
                  Set MSITarget = .ShortcutTarget(path)
                  getTarget = .ComponentPath(MSITarget.StringData(1), MSITarget.StringData(3))
            End With
            End Function
            """
        vbs.addcode(scode)
        command = 'getTarget('+'"'+winpath+'"'+')'
        try:     # пробуем вызвать скрипт
            path = vbs.eval(command)
        except:  #  не получилось или это не advertised shortcut  то пробуем стандартный метод через IShellLink
            path, _ = link.GetPath(shell.SLGP_UNCPRIORITY)
......................................

## -*- coding: utf-8 -*-
import win32com.client
import os
path = "c:/Users/UserName/Desktop/Microsoft Outlook 2010.lnk"
#path = "C:/Users/UserName/Desktop/notepad.lnk"
path = os.path.normpath(path)
vbs = win32com.client.Dispatch("ScriptControl")
vbs.language = "vbscript"

scode="""
Option Explicit
Function getTarget(path)
Dim MSITarget
On Error Resume Next ' just some simple error handling for purposes of this example
With CreateObject("WindowsInstaller.Installer")
      Set MSITarget = .ShortcutTarget(path)
      If Err = 0 then
          getTarget = .ComponentPath(MSITarget.StringData(1), MSITarget.StringData(3))
      Else
          getTarget = path & " is not a legitimate MSI shortcut file or could not be found"
      End If
End With
End Function
"""
vbs.addcode(scode)
command = 'getTarget("'+path+'")'
print(vbs.eval(command))

 ## -*- coding: utf-8 -*-
import win32com.client
import os
path = "c:/MicrosoftOutlook2010.lnk"
path = os.path.normpath(path)
msi = win32com.client.Dispatch('WindowsInstaller.Installer')
MSITarget = msi.ShortcutTarget(path)
#print(MSITarget)