New-Shortcut.ps1

function New-Shortcut {
    [CmdletBinding()]
    Param(
        [Parameter(Mandatory)]
        [ValidateScript({ Test-Path -IsValid $_ })]
        [string]$Path, 
        
        [Parameter(Mandatory, ValueFromPipeline)]
        [ValidateScript({ Test-Path $_ })]
        [string]$Target, 
        
        [ValidateScript({ Test-Path $_ })]
        [string]$Icon = "",

        [string]$Arguments,

        [ValidateScript({ Test-Path $_ })]
        [string]$WorkingDirectory
    )
    try {
        $Shell = New-Object -ComObject ("WScript.Shell")
        $Shortcut = $Shell.CreateShortcut($Path)
        $Shortcut.TargetPath = $Target
        $Shortcut.WorkingDirectory = $Target | Split-Path -Parent
        $Shortcut.IconLocation = "$Target, 0"
        $Shortcut.Arguments = $Arguments

        switch ($PSBoundParameters.Keys) {
            'Icon' {
                $Shortcut.IconLocation = "$Icon"
            }
            'WorkingDirectory' {
                $Shortcut.WorkingDirectory = $WorkingDirectory
            }
        }
        if ($PSCmdlet.ShouldProcess($Path, "Create shortcut to $Target")) {
            $Shortcut.Save()
        }

        if (Test-Path $Path) {
            Write-Verbose "The shortcut was created at '$Path'"
        }
        else {
            Write-Verbose "The shortcut has not been created."
            Write-Verbose "No exceptions have been thrown. Parameters used:"
            $PSBoundParameters |
                Format-Table -Property Key, Value |
                Write-Verbose
        }
    }
    catch {
        $PSCmdlet.ThrowTerminatingError($_)
    }
}