vb.net - VB.NET LDAP 認証エラー:「サーバーが動作していません」

Question

LDAP を使用して Active Directory 経由でユーザーを認証する VB.NET アプリケーションがあります。

以前は問題はありませんでしたが、今日の午後、同僚が Windows Update を適用し、ドメイン コントローラー (および 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.Runtime.InteropServices.COMException' の初回例外が System.DirectoryServices.dll で発生しました

誰にもアイデアはありますか？

私が試したこと：

1. ドメイン コントローラの DNS をフラッシュする

2. DHCP サーバーの再起動

3. DNS サービスを再起動しています。

ありがとう！