# Function to create shortcuts
function Add-Shortcut
{
   [CmdletBinding()]
   param
   (
      [string]
      $Target,
      [string]
      $Shortcut,
      [string]
      $Arguments,
      [string]
      $Icon,
      [string]
      $Description
   )

   $WScriptShell = (New-Object -ComObject WScript.Shell)
   $Shortcut = $WScriptShell.CreateShortcut($Shortcut)
   $Shortcut.TargetPath = $Target
   $Shortcut.Arguments = $Arguments
   $Shortcut.IconLocation = $Icon
   $Shortcut.Description = $Description
   $Shortcut.Save()
}