Lokale Profile von deaktivierten AD Usern löschen

Variable: 'StrSamAccountName' found in expression: $StrSamAccountName is not defined.  
    + CategoryInfo          : InvalidArgument: (:) [Get-ADUser], ArgumentException
    + FullyQualifiedErrorId : ActiveDirectoryCmdlet:System.ArgumentException,Microsoft.ActiveDirectory.Management.Comm
   ands.GetADUser

$Error.Clear()
$DebugPreference = "Continue"  

$StrADServer = "Server"  
$StrFilePath = "C:\Users\"  
$StrLogfile = "C:\Temp\Remove-LocalProfiles.log"  
$StrRegPath = "HKLM:\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList"  
$ArrProfileFiles = Get-ChildItem $StrFilePath
$ArrRegKeys = Get-ChildItem $StrRegPath

$ObjADSession = New-PSSession -Computername $StrADServer
Import-PSSession $ObjADSession -Module ActiveDirectory

$Error.Clear()

New-Item "C:\users\leer" -ItemType Directory | Out-Null  

Function Check-ProfileFolder
{
    $IntProfCount = 0
    Foreach ($StrProfile in $ArrProfileFiles)
    {
        If ($StrProfile -eq $StrRegProfilePath)
        {
            $IntProfCount += 1
        }
    }
    If ($IntProfCount -eq 0)
    {
        Remove-LocalProfileFolder
    }
    Else
    {
        Write-Debug "not delete $StrProfile"  
    }
}

Function Log-Error
{
    If ($Error -ne $Null)
    {
        "$StrSamAccountName`t$Error" | Out-File $StrLogfile -Append  
        $Error.Clear()
    }
}

Function Remove-LocalProfileFolder
{
    Write-Debug "Delete Folder $StrProfile"  
    Robocopy "C:\users\Leer" $StrProfile.FullName /mir /b /r:0 /w:0 | Out-Null  
    Remove-Item $StrProfile.FullName -Recurse -Force
    Log-Error
}

Function Remove-ProfileRegistryKey
{
    Write-Debug "Remove Key $StrRegKey"  
    Remove-Item $StrRegKey.PSPath -Recurse -Force
    Log-Error
}

ForEach ($StrRegKey in $ArrRegKeys)
{
    If ($StrRegKey.PSChildName.Length -gt 8) #kein SystemProfil
    {
        [String]$StrRegProfilePath = Get-ItemProperty $StrRegKey.PSPath | Select-Object ProfileImagePath
        $StrRegProfilePath = $StrRegProfilePath.TrimStart("ProfileImagePath : ").TrimStart("@{ProfileImagePath=").TrimEnd("}")  
        $ObjADUser = $Null
        $StrSamAccountName = $StrRegProfilePath.TrimStart($StrFilePath)
        $StrSamAccountName
        Write-Debug "Name $StrRegProfilePath"  
        If ($StrSamAccountName -like "*.*")  
        {
            $StrSamAccountName = $StrSamAccountName.Split(".")  
        }
        $ObjADUser = Get-ADUser -Filter {SamAccountName -eq $StrSamAccountName}

        If ($ObjADUser)
        {
            If ($ObjADUser.Enabled -eq $False)
            {
                Remove-ProfileRegistryKey
                Write-Debug "remove Key $StrSamAccountName"  
                Check-ProfileFolder
            }
            Else
            {
                Write-Debug "$StrSamAccountName enabled"  
            }
        }
        Else
        {
            Remove-ProfileRegistryKey
            Write-Debug "$StrSamAccountName not in AD"  
            Check-ProfileFolder
        }   
    }
}

Remove-Item "C:\Users\Leer" -Force  
Remove-PSSession -Session $ObjADSession