PowerShell script that saves .exe icons as .ico files

ExtractIcon.ps1

<#
.SYNOPSIS
    Saves .exe/.msi icons as .ico files (to use with Explorer)
.DESCRIPTION
    Loops thru all .exe/.msi files in given or current (default)
    folder, extracts icons, and saves them as .ico files.
.PARAMETER folder
    Optional folder name; if not provided, current ($pwd) is used
.EXAMPLE
    (current folder) ExtractIcon
    (another folder) ExtractIcon -folder C:\Users\test
.NOTES
    License: apache.org/licenses/LICENSE-2.0
#>
Param (
    [string]$folder=$pwd
)

Function ExtractIcon {
    [System.Reflection.Assembly]::LoadWithPartialName('System.Drawing')  | Out-Null
    Get-ChildItem $folder\*.* -include *.exe,*.msi -ea 0 |
      ForEach-Object {
        $baseName = [System.IO.Path]::GetFileNameWithoutExtension($_.FullName)
        Write-Progress "Extracting Icon" $baseName
        $stream = [System.IO.File]::create("$folder\$BaseName.ico")
        [System.Drawing.Icon]::ExtractAssociatedIcon($_.FullName).Save($stream)
        $stream.Close()
    }
}

ExtractIcon $folder