Set ssh private key permissions on Windows

ssh-pm-win.ps1

# To avoid permissions problems, run this on Windows PowerShell, Core edition doesn't have SetAccessControl implemented at base level.
# A variant for it is welcome.

# Allow the powershell session to run this script with: 
# Set-ExecutionPolicy -Scope Process -ExecutionPolicy RemoteSigned

function Set-SshPermissions {
    param (
        $pkFile
    )
    # Set inheritance to false    
    $pkAcl = $pkFile.GetAccessControl('Access')
    $pkAcl.SetAccessRuleProtection($True, $True)
    $pkFile.SetAccessControl($pkAcl)

    # Remove access rules for all exept current user    
    $pkAcl = $pkFile.GetAccessControl('Access')
    foreach ($accessRule in $pkAcl.Access) {
        if ($accessRule.IdentityReference -ne $env:USERDOMAIN + "\" + $env:USERNAME ) {        
            Write-Output("Removing Access rule " + $accessRule.IdentityReference)
            $pkAcl.RemoveAccessRuleAll($accessRule)
        }    
    }
    Write-Output("Permissions set to current user only:")
    $pkAcl.Access | Format-List
    $pkFile.SetAccessControl($pkAcl)
}

# Get the private_key file
$pk = $PSScriptRoot + "\my_private_key"
$pkFile = Get-Item -LiteralPath $pk
Set-SshPermissions($pkFile)