26 lines
1.4 KiB
PowerShell
26 lines
1.4 KiB
PowerShell
$Shell = New-Object -ComObject ("WScript.Shell")
|
|
|
|
## Delete the Desktop shortcut if it exists
|
|
if ( Test-Path "${Env:UserProfile}\Desktop\Deltek Vision.lnk" ) { Remove-Item "${Env:UserProfile}\Desktop\Deltek Vision.lnk" -Force }
|
|
|
|
## Create Desktop shortcut
|
|
try {
|
|
$DesktopShortcut = $Shell.CreateShortcut("${Env:UserProfile}\Desktop\Deltek Vision.lnk")
|
|
$DesktopShortcut.TargetPath = "${Env:ProgramFiles}\Internet Explorer\iexplore.exe"
|
|
$DesktopShortcut.Arguments = "https://dbi.oursand.com/dbiclient/DeltekVision.application"
|
|
$DesktopShortcut.WorkingDirectory = "${Env:ProgramFiles}\Internet Explorer"
|
|
$DesktopShortcut.WindowStyle = 1
|
|
$DesktopShortcut.IconLocation = "${Env:ProgramFiles}\Internet Explorer\iexplore.exe, 0"
|
|
$DesktopShortcut.Description = "Launch Deltek Vision"
|
|
$DesktopShortcut.Save()
|
|
} catch { Write-Host "Desktop shortcut to Deltek Vision could not be created!" }
|
|
|
|
## Delete the Favorites Bar shortcut if it exists
|
|
if ( Test-Path "${Env:UserProfile}\Favorites\Links\Deltek Vision.url" ) { Remove-Item "${Env:UserProfile}\Favorites\Links\Deltek Vision.url" -Force }
|
|
|
|
## Create IE shortcut on Favorites Bar
|
|
try {
|
|
$IEShortcut = $Shell.CreateShortcut("${Env:UserProfile}\Favorites\Links\Deltek Vision.url")
|
|
$IEShortcut.TargetPath = "https://dbi.oursand.com/dbiclient/DeltekVision.application"
|
|
$IEShortcut.Save()
|
|
} catch { Write-Host "Internet Explorer shortcut to Deltek Vision could not be created!" } |