Misc/New-DesktopShortcut.ps1

<#
 .Synopsis
  Create a Desktop shortcut
 .Description
  Create a Desktop shortcut
 .Parameter Name
  Name of shortcut
 .Parameter TargetPath
  TargetPath of shortcut
 .Parameter WorkingDirectory
  Working Directory of shortcut
 .Parameter IconLocation
  Icon location for shortcut
 .Parameter Arguments
  Arguments for the program executed by shortcut
 .Parameter shortcuts
  Specify where you want to shortcut created: ('None','Desktop','StartMenu','Startup','CommonDesktop','CommonStartMenu','CommonStartup')
 .Parameter RunAsAdministrator
  Include this switch if you want the shortcut to be set to Run As Administrator
#>

function New-DesktopShortcut {
    Param (
        [Parameter(Mandatory=$true)]
        [string] $Name, 
        [Parameter(Mandatory=$true)]
        [string] $TargetPath, 
        [string] $WorkingDirectory = "", 
        [string] $IconLocation = "", 
        [string] $Arguments = "",
        [ValidateSet('None','Desktop','StartMenu','Startup','CommonDesktop','CommonStartMenu','CommonStartup','DesktopFolder','CommonDesktopFolder')]
        [string] $shortcuts = "Desktop",
        [switch] $RunAsAdministrator = $isAdministrator
    )
    $folderName = ""
    if ($shortcuts.EndsWith("Folder")) {
        $shortcuts = $shortcuts.Substring(0,$shortcuts.Length - 6)
        $folderName = $name.Split(' ')[0]
        $name = $name.Substring($folderName.Length).TrimStart(' ')
    }
    if ($shortcuts -ne "None") {
        
        if ($shortcuts -eq "Desktop" -or 
            $shortcuts -eq "CommonDesktop" -or 
            $shortcuts -eq "Startup" -or 
            $shortcuts -eq "CommonStartup") {

            $folder = [Environment]::GetFolderPath($shortcuts)

        } else {
            $folder = Join-Path ([Environment]::GetFolderPath($shortcuts)) "NavContainerHelper"
            if (!(Test-Path $folder -PathType Container)) {
                New-Item $folder -ItemType Directory | Out-Null
            }
        }

        if ($folder) {
            if ($folderName) {
               $folder = Join-Path $folder $folderName
               if (!(Test-Path $folder -PathType Container)) {
                   New-Item $folder -ItemType Directory | Out-Null
               }
            }

            $filename = Join-Path $folder "$Name.lnk"
            if (Test-Path -Path $filename) {
                Remove-Item $filename -force
            }
        
            $tempfilename = Join-Path $containerHelperFolder "$([Guid]::NewGuid().ToString()).lnk"
            $Shell =  New-object -comobject WScript.Shell
            $Shortcut = $Shell.CreateShortcut($tempfilename)
            $Shortcut.TargetPath = $TargetPath
            if (!$WorkingDirectory) {
                $WorkingDirectory = Split-Path $TargetPath
            }
            $Shortcut.WorkingDirectory = $WorkingDirectory
            if ($Arguments) {
                $Shortcut.Arguments = $Arguments
            }
            if ($IconLocation) {
                $Shortcut.IconLocation = $IconLocation
            }
            $Shortcut.save()

            if ($RunAsAdministrator) {
                $bytes = [System.IO.File]::ReadAllBytes($tempfilename)
                $bytes[0x15] = $bytes[0x15] -bor 0x20 #set byte 21 (0x15) bit 6 (0x20) ON
                [System.IO.File]::WriteAllBytes($tempfilename, $bytes)
            }

            Move-Item -Path $tempfilename -Destination $filename -ErrorAction SilentlyContinue
        }
    }
}
Export-ModuleMember -Function New-DesktopShortcut