function Grant-Permission

{

    [CmdletBinding(SupportsShouldProcess=$true)]

    param(

        [Parameter()]

        [string]$ComputerName = $env:computername,

        [Parameter(Mandatory=$true)]

        [string]$Path,

        [Parameter(Mandatory=$true)]

        [ValidateSet('file','reg','srv','prn','shr','wmi')]

        [string]$Type,

        [Parameter(Mandatory=$true)]

        [string]$Name,

        [Parameter(Mandatory=$true)]

        [string]$Permission,

        [Parameter()]

        [switch]$PassThru

    )

    Write-Verbose "Granting '$Name' $Permission permission on '$ComputerName'..."

    if(!(Test-Connection $ComputerName -Count  -Quiet))

    {

        Write-Error "Unable to connect '$ComputerName'. The network path not found."

        return

    }

    try

    {

        if(!$PSScriptRoot) { $PSScriptRoot = Split-Path (Get-Variable MyInvocation -Scope ).Value.MyCommand.Path }

        Set-Alias setacl "$PSScriptRoot\setacl.exe"

        if($ComputerName -ne $env:computername) { $fullPath = "\\$ComputerName\$Path" } else { $fullPath = $Path }

        $result = Invoke-Expression "setacl -on `"$fullPath`" -ot $Type -actn ace -ace `"n:$Name;p:$Permission`""

        if($result -match "error") {

            Write-Error ($result -join "`n")

            return

        }

        Write-Verbose ($result -join "`n")

        Write-Verbose "'$Name' has been granted $Permission permission on '$ComputerName'."

        if($Passthru)

        {

            $pso = New-Object PSObject -Property @{

                 ComputerName = $ComputerName.ToUpper()

                 Path = $Path

                 Type = $Type

                 Name = $Name

                 Permission = $Permission

            }

            $pso.PSTypeNames.Clear()

            $pso.PSTypeNames.Add('MKServerBuilder.ACL')

            $pso

        }

    }

    catch

    {

        $_

    }

}