uwpなどのショートカットのリンク先を表示する。

uwpなどのショートカットは、リンク先がグレーアウトされていて、選択不可、コピー不可で、全く不明。

それを表示する。

ショートカットをShowLinkTarget.vbsにドロップする。

ShowLinkTarget.vbs

Set Shell=CreateObject("Shell.Application")
Path=WScript.Arguments(0)
FolderName=Left(Path,InStrRev(Path,"\"))
FileName=Mid(Path,InStrRev(Path,"\")+1)
Set Folder=Shell.NameSpace(FolderName)
Set FolderItem=Folder.ParseName(FileName)
Set Link=FolderItem.GetLink
WScript.Echo Join(Array(_
"Target.Name"&vbTab&Link.Target.Name,_
"Target.Path"&vbTab&Link.Target.Path),vbLf)