BW-AWS: Cache

bw-aws.ps1

$path = ".\$($id).xml" #id = BW item name

function Write-Cache() {
    param ($value)
    $secure = ConvertTo-SecureString -AsPlainText -Force -String $value
    $obj = New-Object -TypeName System.Management.Automation.PSCredential `
        -ArgumentList "myusername", $secure
    return $obj | Export-Clixml $path
}

function Read-Cache() {
    $obj = Import-Clixml -Path $path
    $BSTR = [System.Runtime.InteropServices.Marshal]::SecureStringToBSTR($obj.Password)
    $password = [System.Runtime.InteropServices.Marshal]::PtrToStringAuto($BSTR)
    [Runtime.InteropServices.Marshal]::ZeroFreeBSTR($BSTR)
    return $password
}

function Test-Cache() {
    if (-not(Test-Path -Path $path -PathType Leaf)) {
        return 0
    }
    else {
        $lastWrite = (Get-Item $path).LastWriteTime
        $timespan = New-Timespan -seconds ($sessionLifetime - $sessionBuffer)
        return (((Get-Date) - $lastWrite) -lt $timespan)
    }
}