search - 按全名在 Active Directory 中搜索用户

Question

我正在寻找使用 VBScript 在 Active Directory 中搜索用户的方法。我可以使用 ADODB Connection 按用户名或任何 Active Directory 进行搜索：

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = ("ADsDSOObject")
objConnection.Open "Active Directory Provider"
objCommand.ActiveConnection = objConnection
objCommand.Properties("SearchScope") = 2
objCommand.CommandText = "SELECT userWorkstations,sAMAccountName,Mail,name,DisplayName,distinguishedName FROM 'LDAP://dc=NESTLE,dc=com' WHERE objectCategory='user' AND name='" & VaR5 & "'"
Set objRecordSet = objCommand.Execute

但我想找到一个有全名的用户，例如“John Doe”（用户：Jdoe）。因此，就像在AD 用户和计算机界面中一样，我们可以通过“John Doe”进行搜索。

Answer 1

好的，它似乎可以通过使用 Outlook 功能的解决方法来工作

Dim myOlApp

Dim myOlNameSpace

Dim objFolder

Set myOlApp = CreateObject("Outlook.Application")

Set myOlNameSpace = myOlApp.GetNamespace("MAPI")

Set myRecipient = myOlNameSpace.CreateRecipient("Martin Pierre-François")

myRecipient.Resolve

msgbox myRecipient

在我使用 displayName 属性在 AD 中进行搜索之后

谢谢大家

Answer 2

改变

"... name='" & var5 & "'"

要么

"... displayName='" & var5 & "'"

或者

"... sn='" & lastname & "' and givenName='" & firstname & "'"

对于后者，您需要 2 个变量：一个带有第一个变量，另一个带有姓氏。