38 lines
1.3 KiB
PowerShell
38 lines
1.3 KiB
PowerShell
param(
|
|
[string]$VisionURL='https://dbia.deltekfirst.com/DBIAClient/DeltekVision.application'
|
|
)
|
|
|
|
## Installation location for shortcut
|
|
$InstallLocation = "${Env:Public}\Desktop\Deltek Vision.lnk"
|
|
|
|
## Remove the existing shortcut
|
|
If ( Test-Path $InstallLocation )
|
|
{
|
|
Try { Remove-Item -Path $InstallLocation -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($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 { Write-Output $_.Exception.Message }
|
|
} Else { Write-Output "Internet Explorer could not be found: ${IEPATH}" }
|
|
} Else { Write-Output "No URL to Deltek Vision was specified!" }
|