## Installation location for shortcut
$InstallLocation = "${Env:Public}\Desktop\Deltek Vision.lnk"

## Remove the existing shortcut
If ( Test-Path $InstallLocation )
{
    LogMsg "Deleting ""${InstallLocation}"""
    Try { Remove-Item -Path $InstallLocation -Force }
    Catch { LogErr $_.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 )
    {
        LogMsg "Creating shortcut at ""${InstallLocation}"""
        Try
        {
            $WshShell = New-Object -ComObject WScript.Shell
            $Shortcut = $WshShell.CreateShortcut($InstallLocation)
            $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 { LogErr $_.Exception.Message }
    } Else { LogMsg "Internet Explorer could not be found: ${IEPATH}" }
} Else { LogMsg "No URL to Deltek Vision was specified!" }