Bad password count is inaccurate

[Robert Adrian]

I am attempting to retrieve the bad password count from active directory.
However, the results seem to be incorrect. Any help with this would be
appreciated.

Robert Adrian
Raven Inc.

Public Function GetBadPasswordCount(ByVal distinguishedName As String) As
Integer
Dim Total As Integer = 0
Dim Counter As Integer = 0

If m_DomainControllers Is Nothing Then
GetDomainControllers()
End If

Dim Filter As String = "(&(objectClass=user)(objectCategory=person))"

Dim DE As DirectoryEntry
DE = New DirectoryEntry()
DE.AuthenticationType = m_DSAuthenticationType
DE.Username = m_DSUsername
DE.Password = m_DSPassword

Dim Searcher As New System.DirectoryServices.DirectorySearcher()
Searcher.SearchScope = SearchScope.Subtree
Searcher.ReferralChasing = ReferralChasingOption.All
Searcher.PropertiesToLoad.Add("badPwdCount")
Searcher.Filter = Filter

For Counter = 1 To m_DomainControllers.Count
Dim DomainController As String = m_DomainControllers(Counter)

Dim Path As String = "LDAP://" & DomainController & "/" &
distinguishedName
DE.Path = Path

Searcher.SearchRoot = DE

Dim Search As SearchResult = Searcher.FindOne
Dim Entry As DirectoryEntry = Search.GetDirectoryEntry

If Not Entry.Properties("badPwdCount").Value Is Nothing Then
Total = Total + Entry.Properties("badPwdCount").Value
End If

Entry.Close()
Next

DE.Close()
Return Total
End Function