$OutputVariable = (cmd.exe /c "E:\Shortcut.exe" /F:$_ /A:Q | findstr TargetPath=) | Out-String
$p = $OutputVariable.Substring(11)
复制代码

using namespace 'Microsoft.PowerShell.Commands.AddType.AutoGeneratedTypes'
using namespace 'System.Windows.Forms'
using namespace 'System.Collections.Specialized';cls
[void][System.Reflection.Assembly]::LoadWithPartialName('System.Windows.Forms')
Add-Type -Name 'WinApi' -MemberDefinition '[DllImport("user32.dll")]public static extern short GetKeyState(uint VK);'
$shell = New-Object -ComObject 'WScript.Shell'
$paths = New-Object 'StringCollection'
$arr_err = New-Object 'System.Collections.ArrayList'
if([WinApi]::GetKeyState(16) -band 0x8000){ write-host 'shift';$paths = [Clipboard]::GetFileDropList() }
$args | foreach { [void]$paths.Add($_) }
$paths = &{
	$paths | Select-Object -Unique | foreach {
		#目录
		if([System.IO.Directory]::Exists($_)){ return $_ }
		#文件
		if([System.IO.File]::Exists($_)){
			#lnk文件
			if($_.EndsWith('.lnk')){
				$p = $shell.CreateShortcut($_).TargetPath
				if([System.IO.File]::Exists($p)){ return $p }
				if([System.IO.Directory]::Exists($p)){ return $p }
                [void]$arr_err.Add(('{0} -> {1}' -f $_,$p))
				return $null
			}
			#其它文件
			return $_
		}
	} | Select-Object -Unique
}
if($paths.Count -gt 0){
	[Clipboard]::SetFileDropList($paths)
	'ok'
	$paths
	'-----------'
}
if($arr_err.Count -gt 0){
	'fail'
	$arr_err
	'-----------'
	pause
}
复制代码

$p='';
$process=New-Object System.Diagnostics.Process;
#$process.StartInfo.WindowStyle=[System.Diagnostics.ProcessWindowStyle]::Hidden;
$process.StartInfo.UseShellExecute=$false;
$process.StartInfo.RedirectStandardOutput=$true;
$process.StartInfo.FileName='E:\Shortcut.exe';
$process.StartInfo.Arguments='/F:"'+$_+'" /A:Q';
[void]$process.Start();
$result=$process.StandardOutput.ReadToEnd();
$m=[regex]::match($result, 'TargetPath=([^\r\n]+)');
if($m.Success){$p=$m.groups[1].value;}
$process.WaitForExit();
$process.Dispose();
复制代码

$a = cmd.exe /c "E:\Shortcut.exe" /F:$_ /A:Q
$OutputVariable = $a | findstr TargetPath= | Out-String
$OutputVariable.Substring(11)
复制代码

$p = "$HOME\Desktop\word.lnk"
$a = cmd.exe /c "E:\Shortcut.exe" /F:$p /A:Q
$OutputVariable = $a | findstr TargetPath= | Out-String
$OutputVariable.Substring(11)
复制代码