Functions/New-Shortcut.ps1
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 |
function New-Shortcut { <# .SYNOPSIS This script is used to create a shortcut. .DESCRIPTION This script uses a Com Object to create a shortcut. .PARAMETER Path The path to the shortcut file. .lnk will be appended if not specified. If the folder name doesn't exist, it will be created. .PARAMETER TargetPath Full path of the target executable or file. .PARAMETER Arguments Arguments for the executable or file. .PARAMETER Description Description of the shortcut. .PARAMETER HotKey Hotkey combination for the shortcut. Valid values are SHIFT+F7, ALT+CTRL+9, etc. An invalid entry will cause the function to fail. .PARAMETER WorkDir Working directory of the application. An invalid directory can be specified, but invoking the application from the shortcut could fail. .PARAMETER WindowStyle Windows style of the application, Normal (1), Maximized (3), or Minimized (7). Invalid entries will result in Normal behavior. .PARAMETER IconLocation Full path of the icon file. Executables, DLLs, etc with multiple icons need the number of the icon to be specified, otherwise the first icon will be used, i.e.: c:\windows\system32\shell32.dll,99 .PARAMETER RunAsAdmin Used to create a shortcut that prompts for admin credentials when invoked, equivalent to specifying runas. .PARAMETER Interactive Switch that will display the shortcut just created. .NOTES * Added -Interactive switch to display created shortcut * Updated -WindowStyle to accept readable content of 'Normal', 'Maximized', 'Minimized' and write correct integer values to shortcut * Updated -IconLocation renamed from -Icon to match the output of Get-Shortcut * Updated -RunAsAdmin renamed from -Admin and altered code to make more consistent Main logic inspired by: https://gallery.technet.microsoft.com/scriptcenter/New-Shortcut-4d6fb3d8 Run as admin inspired by: https://community.idera.com/database-tools/powershell/powertips/b/tips/posts/managing-shortcut-files-part-3 .INPUTS Strings and Integer .OUTPUTS [psobject] .EXAMPLE New-Shortcut -Path c:\temp\notepad.lnk -TargetPath c:\windows\notepad.exe -Interactive Creates a simple shortcut to Notepad at c:\temp\notepad.lnk Function would return: LinkPath : C:\temp\notepad.lnk Link : notepad.lnk TargetPath : C:\Windows\notepad.exe Target : notepad.exe Arguments : Hotkey : WindowStyle : Normal IconLocation : ,0 RunAsAdmin : False Description : .EXAMPLE New-Shortcut "$($env:Public)\Desktop\Notepad" c:\windows\notepad.exe -WindowStyle 3 -RunAsAdmin Creates a shortcut named Notepad.lnk on the Public desktop to notepad.exe that launches maximized after prompting for admin credentials. .EXAMPLE New-Shortcut "$($env:USERPROFILE)\Desktop\Notepad.lnk" c:\windows\notepad.exe -IconLocation "c:\windows\system32\shell32.dll,99" Creates a shortcut named Notepad.lnk on the user's desktop to notepad.exe that has a pointy finger icon (on Windows 7). .EXAMPLE New-Shortcut "$($env:USERPROFILE)\Desktop\Notepad.lnk" c:\windows\notepad.exe C:\instructions.txt Creates a shortcut named Notepad.lnk on the user's desktop to notepad.exe that opens C:\instructions.txt .EXAMPLE New-Shortcut "$($env:USERPROFILE)\Desktop\ADUC" %SystemRoot%\system32\dsa.msc -Admin Creates a shortcut named ADUC.lnk on the user's desktop to Active Directory Users and Computers that launches after prompting for admin credentials .EXAMPLE New-Shortcut -Path F:\DNE\notepad.lnk -TargetPath c:\windows\notepad.exe -Interactive If run on a system that does NOT have an F: drive it will return the following: New-Shortcut : Unable to create [f:\DNE], shortcut cannot be created At line:1 char:1 + New-Shortcut -Path f:\DNE\notepad.lnk -TargetPath c:\windows\notepad. ... + ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ + CategoryInfo : NotSpecified: (:) [Write-Error], WriteErrorException + FullyQualifiedErrorId : Microsoft.PowerShell.Commands.WriteErrorException,New-Shortcut #> #region Parameters [CmdletBinding(SupportsShouldProcess)] [OutputType('psobject')] param( [Parameter(Mandatory,HelpMessage='Enter the path to the shortcut you want to create/update', ValueFromPipelineByPropertyName,Position=0)] [Alias('File','Shortcut')] [string] $Path, [Parameter(Mandatory,HelpMessage='Enter the path to the program or file you want to run', ValueFromPipelineByPropertyName,Position=1)] [string] $TargetPath, [Parameter(ValueFromPipelineByPropertyName,Position=2)] [Alias('Args')] [string] $Arguments, [Parameter(ValueFromPipelineByPropertyName,Position=3)] [string] $Description, [Parameter(ValueFromPipelineByPropertyName,Position=4)] [string] $HotKey, [Parameter(ValueFromPipelineByPropertyName,Position=5)] [Alias('WorkingDirectory','WorkingDir')] [string] $WorkDir, [Parameter(ValueFromPipelineByPropertyName,Position=6)] [ValidateSet('1', 'Normal', 3, 'Maximized', 7, 'Minimized')] [string] $WindowStyle = 'Normal', [Parameter(ValueFromPipelineByPropertyName,Position=7)] [string] $IconLocation, [Parameter(ValueFromPipelineByPropertyName)] [switch] $RunAsAdmin, [switch] $Interactive ) #endregion Parameters begin { Write-Verbose -Message "Starting [$($MyInvocation.Mycommand)]" } process { If (!($Path -match '^.*(\.lnk)$')) { $Path = "$Path`.lnk" } [System.IO.FileInfo] $Path = $Path $ShouldMessage = "WHATIF: Would create SHORTCUT [$($path.fullname)] ARGUMENTS [$($Arguments)] DESCRIPTION [$($Description)] HOTKEY [$($HotKey)]`nWORKDIR [$($WorkDir)] WINDOWSTYLE [$($WindowStyle)] ICON [$($IconLocation)]" if ($PSCmdlet.ShouldProcess($ShouldMessage)) { try { If (!(Test-Path -Path $Path.DirectoryName)) { $null = mkdir -Path $Path.DirectoryName -ErrorAction Stop } } catch { Write-Error -Message "Unable to create [$($Path.DirectoryName)], shortcut cannot be created" break } # Define Shortcut Properties $WshShell = New-Object -ComObject WScript.Shell $Shortcut = $WshShell.CreateShortcut($Path.FullName) $Shortcut.TargetPath = $TargetPath $Shortcut.Arguments = $Arguments $Shortcut.Description = $Description $Shortcut.HotKey = $HotKey $Shortcut.WorkingDirectory = $WorkDir switch ($WindowStyle) { 'Normal' { $WindowStyle = 1 } 'Maximized' { $WindowStyle = 3 } 'Minimized' { $WindowStyle = 7 } } $Shortcut.WindowStyle = $WindowStyle if ($IconLocation){ $Shortcut.IconLocation = $IconLocation } try { $Shortcut.Save() $Bytes = [System.IO.File]::ReadAllBytes($Path.FullName) if ($RunAsAdmin) { $bytes[0x15] = $bytes[0x15] -bor 0x20 } else { $bytes[0x15] = $bytes[0x15] -band -not 0x20 } [System.IO.File]::WriteAllBytes($path.FullName, $bytes) if ($Interactive) { Get-Shortcut -Path $Path.FullName } } catch { Write-Error -Message "Unable to create shortcut [$($Path.FullName)]" break } } } end { Write-Verbose -Message "Ending [$($MyInvocation.Mycommand)]" } } |