Add latest prepackaged 'CreateDesktopIcon.ps1' files

Author: nicolonsky

IntuneShortcut/CreateDesktopIcon.intunewin

@@ -1,13 +1,8 @@
-# Create Desktop shortcuts with Microsoft Intune
 
-![Demo](https://tech.nicolonsky.ch/content/images/2019/07/Intune-Create-Desktop-Shortcut.gif)
-
-[Find a full post and desciption on my blog](https://tech.nicolonsky.ch/intune-create-desktop-shortcut/)
+Create Desktop shortcuts with Microsoft Intune. [Find a full post and desciption on my blog](https://tech.nicolonsky.ch/intune-create-desktop-shortcut/)
 
 Create and remediate desktop and start menu shortcuts with Microsoft Intune using Win32 app deployment. Because with OneDrive Known Folder Move the Desktop is not stored in the default user profile location we need to resolve it with the ```[Environment]::GetFolderPath("Desktop")``` method.
 
-Usage: ```CreateDesktopIcon.exe -ShortcutTargetPath "%ProgramFiles(x86)%\Microsoft\Edge Dev\Application\msedge.exe" -ShortcutDisplayName "nicolonsky tech" -IconFile "https://tech.nicolonsky.ch/favicon.ico" -ShortcutArguments "https://tech.nicolonsky.ch"```
-
 ## Quick Overview
 
 * This solution works with OneDrive Known Folder Move

IntuneShortcut/Readme.md

@@ -0,0 +1,46 @@
+[CmdletBinding()]
+Param (
+   [Parameter(Mandatory=$true)]
+   [String]$ShortcutDisplayName
+)
+
+#check if running as system
+function Test-RunningAsSystem {
+   [CmdletBinding()]
+   param()
+   process{
+       return ($(whoami -user) -match "S-1-5-18")
+   }
+}
+
+function Get-DesktopDir {
+   [CmdletBinding()]
+   param()
+   process{
+       if (Test-RunningAsSystem){
+           $desktopDir = Join-Path -Path $env:PUBLIC -ChildPath "Desktop"
+       }else{
+           $desktopDir=$([Environment]::GetFolderPath("Desktop"))
+       }
+       return $desktopDir
+   }
+}
+
+function Get-StartDir {
+   [CmdletBinding()]
+   param()
+   process{
+       if (Test-RunningAsSystem){
+           $startMenuDir= Join-Path $env:ALLUSERSPROFILE "Microsoft\Windows\Start Menu\Programs"
+       }else{
+           $startMenuDir="$([Environment]::GetFolderPath("StartMenu"))\Programs"
+       }
+       return $startMenuDir
+   }
+}
+
+# Remove icon from desktop
+Remove-Item -Path $(Join-Path $(Get-DesktopDir) "$ShortcutDisplayName.lnk") -EA SilentlyContinue; 
+
+# Remove icon from start
+Remove-Item -Path $(Join-Path $(Get-StartDir) $"$ShortcutDisplayName.lnk") -EA SilentlyContinue