Add New-RunasShortcut and Set-PinTaskbar commands

Author: stevenmcohn

Modules/Scripts/New-RunasShortcut.ps1

@@ -0,0 +1,53 @@
+<#
+.SYNOPSIS
+Creates a new elevated shortcut to a given target
+
+.PARAMETER LinkPath
+Path where the shortcut lnk file is to be created.
+This should include the name of the link.lnk file
+
+.PARAMETER TargetPath
+Path of the executable to run from the shortcut
+
+.PARAMETER Arguments
+Arguments to pass to the executable
+#>
+
+param(
+    [parameter(Mandatory=$True, HelpMessage='Path of shortcut lnk file to create')]
+    [ValidateNotNullOrEmpty()]
+    [string] $LinkPath,
+
+    [parameter(Mandatory=$True, HelpMessage='Path of executable')]
+    [ValidateNotNullOrEmpty()]
+    [string] $TargetPath,
+
+    [parameter(HelpMessage='Optional arguments to executable')]
+    [string] $Arguments
+)
+
+if (Test-Path $TargetPath)
+{
+    $TargetPath = (Resolve-Path $TargetPath).Path
+}
+else
+{
+    Write-Warning "$TargetPath does not exist"
+    return
+}
+
+$shortcut = (New-Object -comObject WScript.Shell).CreateShortcut($LinkPath)
+$shortcut.TargetPath = $TargetPath
+
+if ($Arguments)
+{
+    $shortcut.Arguments = $Arguments
+}
+
+$shortcut.Save()
+
+# the magic...
+
+$bytes = [IO.File]::ReadAllBytes($LinkPath)
+$bytes[0x15] = $bytes[0x15] -bor 0x20 #set byte 21 (0x15) bit 6 (0x20) ON
+$bytes | Set-Content $LinkPath -Encoding Byte

Modules/Scripts/Set-PinTaskbar.ps1

@@ -0,0 +1,122 @@
+<#
+.SYNOPSIS
+Pins or unpins a target item to the Windows Taskbar
+
+.PARAMETER Target
+Path of the target item to pin to the Taskbar
+
+.PARAMETER Unpin
+If true then unpin target from the Taskbar
+
+.NOTES
+https://community.spiceworks.com/topic/2165665-pinning-taskbar-items-with-powershell-script
+#>
+
+param(
+    [parameter(Mandatory=$True, HelpMessage='Path of target item to pin to the Taskbar')]
+    [ValidateNotNullOrEmpty()]
+    [string] $Target,
+
+    [Parameter(HelpMessage='If true then unpin target from the Taskbar')]
+    [switch] $Unpin
+)
+
+Begin
+{
+    function RegisterShellHandlerVerb
+    {
+        Write-Verbose '... registering shell handler verb'
+        $guid = (Get-ItemProperty ('HKLM:\SOFTWARE\Microsoft\Windows\CurrentVersion\' + `
+            'Explorer\CommandStore\shell\Windows.taskbarpin')
+            ).ExplorerCommandHandler
+
+        $script:shellKey = (Get-Item 'HKCU:\SOFTWARE\Classes'
+            ).OpenSubKey('*', $true
+            ).CreateSubKey('shell', $true)
+
+        $shellKey.CreateSubKey('{:}', $true).SetValue('ExplorerCommandHandler', $guid)
+        Write-Verbose '... shell handler verb registered'
+    }
+
+    function UnregsisterShellHandlerVerb
+    {
+        if ($shellKey)
+        {
+            Write-Verbose '... unregistering shell handler verb'
+            $shellKey.DeleteSubKeyTree('{:}', $false)
+            $shellKey.Close()
+            $shellKey.Dispose()
+            Write-Verbose '... shell handler verb unregistered'
+        }
+    }
+
+    function GetTaskbandPinMap
+    {
+        Write-Verbose '... getting Taskband pin map'
+        # Taskband\FavoritesResolve is a binary value containing pinned items
+        $key = 'HKCU:\Software\Microsoft\Windows\CurrentVersion\Explorer\Taskband'
+        $name = 'FavoritesResolve'
+
+        # gets contents in ASCII format and filter out non-readable chars so -like will work
+        return [Text.Encoding]::ASCII.GetString(
+            (Get-ItemProperty -Path $key -Name $name | Select-Object -ExpandProperty $name)
+            ) -Replace '[^\x20-\x2f^\x30-\x39\x41-\x5A\x61-\x7F]+', ''
+    }
+
+    function InvokeShellHandlerVerb
+    {
+        Write-Verbose '... invoking handler verb'
+        $item = (Get-Item $Target)
+
+        (New-Object -ComObject 'Shell.Application'
+            ).Namespace($item.DirectoryName
+            ).ParseName($item.Name
+            ).InvokeVerb('{:}')
+
+        Write-Verbose '... handler verb invoked'
+    }
+}
+Process
+{
+    if (!(Test-Elevated))
+    {
+        Write-Warning 'must run from an elevated process'
+    }
+
+    if (Test-Path $Target)
+    {
+        $Target = (Resolve-Path $Target).Path
+    }
+    else
+    {
+        Write-Warning "$Target does not exist"
+        return
+    }
+
+    RegisterShellHandlerVerb
+
+    $map = GetTaskbandPinMap
+
+    if ($Unpin)
+    {
+        # only unpin if item is pinned
+        if ($map.Contains((Split-Path $Target -Leaf)))
+        {
+            Write-Verbose '... unpinning'
+            InvokeShellHandlerVerb
+        }
+    }
+    else
+    {
+        # only pin if item hasn't been pinned
+        if (!$map.Contains((Split-Path $Target -Leaf)))
+        {
+            Write-Verbose '... pinning'
+            InvokeShellHandlerVerb
+        }
+    }
+}
+End
+{
+    UnregsisterShellHandlerVerb
+}

readme.md

@@ -173,6 +173,9 @@ Create a persistent mapping of a folder to a new drive letter. (persistent SUBST
 #### `New-Host` -IP a -Name n
 Adds or updates an entry in the Windows hosts file
 
+#### `New-RunAsShortcut` -LinkPath l -TargetPath t [-Arguments a]
+Creates a new elevated shortcut (.lnk file) to a given target
+
 #### `New-VMClone` -Name n -Path p -Template t [-Checkpoint]
 Create a new VM from a registered VM or an exported VM.
 
@@ -206,6 +209,9 @@ Set the ownership of an item - folder or file - to the specified user group.
 #### `Set-OutDefaultOverride`
 (Internal) Helper function for Get-ChildItemColorized.
 
+#### `Set-PinTaskbar` -Target t [-Unpin]
+Pins or unpins a target item to the Windows Taskbar (_currently broken!_)
+
 #### `Set-RegistryOwner` -Hive h -Key k [-Recurse]
 Set full-access ownership of a specified Registry key.