# Microsoft Intune PowerShell Script
# Create Desktop Shortcut Icon
# Author : Yutaro Tamai (https://sccm.jp)

# Define Variables
$Shortcut_Create_Location = "C:\Users\Public\Desktop\SCCM.lnk"
$Shortcut_Target_Application_Path = "C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe"
$Shortcut_Target_Path = "https://sccm.jp"
$Shortcut_Icon_Path = "C:\Windows\SCCM.ico"

# Copy Icon File
Copy-Item .\Icons\* -Destination C:\Windows -Recurse

# Mail Script
$shell = New-Object -comObject WScript.Shell
$shortcut = $shell.CreateShortcut($Shortcut_Create_Location)
$shortcut.TargetPath = $Shortcut_Target_Application_Path
$shortcut.Arguments = $Shortcut_Target_Path
$shortcut.IconLocation = $Shortcut_Icon_Path
$shortcut.Save()