VB.NET LDAP身份验证错误：“服务器无法运行”

Question

我们有一个VB.NET应用程序，它使用LDAP通过Active Directory对用户进行身份验证。

之前从未遇到过任何问题，但今天下午我的同事应用了Windows更新并重新启动了我们的域控制器（和AD服务器），现在每当有人尝试登录并使用该应用程序时，都会出现以下错误：

  

错误号码：-2147016646

     

错误说明：服务器无法运行。

使用以下代码进行身份验证：

Dim adEntry As New System.DirectoryServices.DirectoryEntry("LDAP://" & gsDomainName, sUserName, sPassword)
Dim adSearcher As New System.DirectoryServices.DirectorySearcher(adEntry)

adSearcher.SearchScope = DirectoryServices.SearchScope.OneLevel

Try
    Dim adResults As System.DirectoryServices.SearchResult = adSearcher.FindOne
    ...

adSearcher.FindOne代码失败。

即时窗口提供更详细的错误信息

  

System.DirectoryServices.dll中出现'System.Runtime.InteropServices.COMException'类型的第一次机会异常

有人有什么想法吗？

我尝试过的事情：

1. 刷新域控制器上的DNS

2. 重新启动DHCP服务器

3. 重新启动DNS服务。

谢谢！