使用 VB.net 在 AD 中搜索打印机

Question

我正在使用 VB.net，尝试查询 Active Directory 以检查那里是否存在打印机。我有一个 AD 连接，但在我运行代码时它似乎没有返回任何值。这是我的代码的sn-p

Dim searchResults As New ArrayList
Dim myDirectorySearcher As New DirectorySearcher(myDirectoryEntry))    
Dim targetObject as string = "printerName"
Dim searchFilter as string = "cn"
Dim strFilter = "(&(objectClass=printer)(" & searchFilter & "=" & targetObject & "))" 

    myDirectorySearcher.Filter = strFilter
    myDirectorySearcher.CacheResults = False

    For i = 0 To searchCriteria.Count - 1
        myDirectorySearcher.PropertiesToLoad.Add(searchCriteria(i).ToString)
    Next

    Dim mySearchResult As SearchResult = myDirectorySearcher.FindOne()

尝试了各种方法，但似乎没有任何效果，任何建议将不胜感激。

Answer 1

我不得不对我正在工作的项目做类似的事情。简而言之，我认为您可能在 ActiveDirectory 中搜索错误的objectClass。

打印机有时会添加到printQueue 下。

您的代码将类似于：

Dim searchResults As New ArrayList
Dim myDirectorySearcher As New DirectorySearcher(myDirectoryEntry))    
Dim targetObject as string = "printerName"
Dim strFilter = "(&(objectClass=printQueue)(cn=" & targetObject & "))" 

myDirectorySearcher.Filter = strFilter
myDirectorySearcher.CacheResults = False

For i = 0 To searchCriteria.Count - 1
    myDirectorySearcher.PropertiesToLoad.Add(searchCriteria(i).ToString)
Next

Dim mySearchResult As SearchResult = myDirectorySearcher.FindOne()

还值得记住的是，有时printerName 会将域附加到末尾，因此您的查询可能不会总是返回您期望的结果。

例如，您的打印机名称可能是 PRINTER-RECEPTION，但在您的域中被引用为 PRINTER-RECEPTION.MYCOMPANY.DOMAIN。

希望对你有所帮助。