update

2020-08-09 17:52:30 -04:00
parent 8423c760f8
commit 78df7f98c1
17 changed files with 346 additions and 52 deletions
@@ -0,0 +1,34 @@
+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!" }