param(
    [string]$VisionURL
)

## Remove the existing shortcut
If ( Test-Path "${Env:UserProfile}\Desktop\Deltek Vision.lnk" )
{
    Try { Remove-Item -Path "${Env:UserProfile}\Desktop\Deltek Vision.lnk" -Force }
    Catch { Write-Output $_.Exception.Message }
}

## Get the correct path to IE
If ( Test-Path "${Env:ProgramFiles(x86)}" ) { $IEPATH = "${Env:ProgramFiles(x86)}\Internet Explorer\iexplore.exe" }
Else { $IEPATH = "${Env:ProgramFiles(x86)}\Internet Explorer\iexplore.exe" }

If ( $VisionURL )
{
    ## Make sure IE exists where we expect it to
    If ( Test-Path $IEPATH )
    {
        Try
        {
            $WshShell = New-Object -ComObject WScript.Shell
            $Shortcut = $WshShell.CreateShortcut("${Env:UserProfile}\Desktop\Deltek Vision.lnk")
            $Shortcut.Arguments = $VisionURL
            $Shortcut.Description = "Launch Deltek Vision"
            $Shortcut.IconLocation = "${IEPATH}, 0"
            $Shortcut.WorkingDirectory = "$(Split-Path -Path $IEPATH -Parent)"
            $Shortcut.TargetPath = "${IEPATH}"
            $Shortcut.Save()
        }
        Catch { Write-Output $_.Exception.Message }
    } Else { Write-Output "Internet Explorer could not be found: ${IEPATH}" }
} Else { Write-Output "No URL to Deltek Vision was specified!" }