Account Status with AD

[John Wright]

I want to get an account status in Active Directory (Active, Inactive,
Disabled) using Active Directory. Using the code that follows, I can
validate the account is active, but if the account is inactive or disabled,
it comes back with a false (Searcher is set to nothing). I can check to see
if an account is disabled by the following code:

Public Function IsAccountDisabl ed(ByVal strDomain As String, ByVal
strAccount As String) As Boolean
Dim objUser
objUser = GetObject("WinN T://" & strDomain & "/" & strAccount & ",user")
IsAccountDisabl ed = objUser.Account Disabled
End Function

But this code is using COM and it sometimes cannot create the COM object. I
want to do all this using the System.Director yServices namespace but I am
having problems finding code to do this. Any help is much appreciated.

John

CODE:
Public Function ValidateActiveD irectoryLogin(B yVal Domain As String, ByVal
Username As String, ByVal Password As String) As Boolean

Dim Success As Boolean = False

Dim strDomain As String = "LDAP://" & Domain

Dim Entry As New DirectoryEntry( strDomain, Username, Password,
AuthenticationT ypes.Secure)

Dim Searcher As New DirectorySearch er(Entry)

Searcher.Search Scope = SearchScope.One Level

Try

Dim Results As SearchResult = Searcher.FindOn e

Success = Not (Results Is Nothing)

Catch ex As Exception

Success = False

End Try

Return Success

End Function