[VB.NET] Utenti Active Directory

[jupynet]

Ora non ho il codice sotto mano, ma uso l'LDAP con DirectoryEntry
poi faccio la ricerca con DirectorySearcher usando come filtro: (&(objectclass=user)(objectCategory=person))

Googlando forse ho trovato la soluzione (eventualmente la proverò domani), usando il valore della Properties("userAccountControl") in combinazione con il valore &H2.
In pratica, una cosa del genere:

Private Function IsAccountActive(ByVal userAccountControl As Integer) As Boolean    
    If (userAccountControl And &H2)>0 Then
        Return False
    Else
        Return True
   End If
End Function

Che dici, è questa la strada giusta?

Grazie