Get faulty ADM accounts ('adm-username' for which there's no 'username')

Get-FaultyAdmAccounts.ps1

Function Get-ADReferent ($user)
{
    $user = $user -replace '^adm-',''
    Try {
        $test = Get-ADUser $user
        $test.SamAccountName
    } Catch {
        ''
    }
}

Get-ADUser -filter 'name -like "adm-*"' |
    foreach {
        New-Object -TypeName PSObject -Property @{
            'SamAccountName' = $_.SamAccountName
            'DistinguishedName' = $_.DistinguishedName
            'ReferentAccount' = Get-ADReferent $_.SamAccountName
        }
    } |
    where ReferentAccount -eq '' |
    select SamAccountName,DistinguishedName
    # export-csv -Path admaccounts.csv