[问题求助] PowerShell怎样复制 快捷方式 链接的源文件到剪贴板？

$shell = New-Object -ComObject 'WScript.Shell' ; $arr = @()
$args | foreach { $arr += $shell.CreateShortcut($_).TargetPath }
$s = $arr -join "`r`n" ; Write-Host $s
Set-Clipboard -Value $sCOPY

[void][System.Reflection.Assembly]::LoadWithPartialName('System.Windows.Forms')
$shell = New-Object -ComObject 'WScript.Shell'
$paths = New-Object 'System.Collections.Specialized.StringCollection'
$args | foreach { 
    $file_str = $shell.CreateShortcut($_).TargetPath
    Write-Host $file_str
    [void]$paths.Add($file_str)
}
[System.Windows.Forms.Clipboard]::SetFileDropList($paths)COPY

@echo off & cd /d "%~dp0"
set "ps1=F:\Desktop\test.ps1"
reg add "HKCR\lnkfile\shell\复制源到剪贴板\command" /ve /d "powershell \"%ps1%\" %%1" /f 
pause&exitCOPY

[void][System.Reflection.Assembly]::LoadWithPartialName('System.Windows.Forms')
$shell = New-Object -ComObject 'WScript.Shell'
$paths = New-Object 'System.Collections.Specialized.StringCollection'
$args | foreach { 
    if($_.EndsWith('.lnk')){
        $file_str = $shell.CreateShortcut($_).TargetPath
    } else {
        $file_str = $_
    }
    Write-Host $file_str
    [void]$paths.Add($file_str)
}
[System.Windows.Forms.Clipboard]::SetFileDropList($paths)COPY

using namespace 'Microsoft.PowerShell.Commands.AddType.AutoGeneratedTypes';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 'System.Collections.Specialized.StringCollection'
if([WinApi]::GetKeyState(16) -band 0x8000){ $paths = [System.Windows.Forms.Clipboard]::GetFileDropList() }
$args | foreach { [void]$paths.Add($shell.CreateShortcut($_).TargetPath) }
$paths = $paths | Select-Object -Unique | Where-Object {[System.IO.File]::Exists($_)} 
[System.Windows.Forms.Clipboard]::SetFileDropList($paths)
$pathsCOPY

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
}COPY

if($paths.Count -gt 0){ [Clipboard]::SetFileDropList($paths) }COPY