我正在尝试使用 VBScript连接拉physicalDeliveryOfficeName
Active Directory 中的属性通过提供电子邮件地址。
我知道如何使用如下通用名称来执行此操作:
Set MyUser = GetObject ("LDAP://cn=" & uname & ",ou=" & strname & ",DC=bobdom,DC=net")
但是,只有电子邮件地址可用。这该怎么做?我什至试过
Set MyUser = GetObject ("LDAP://mail=" & uname & ",ou=" & strname & ",DC=bobdom,DC=net")
这不起作用。
最佳答案
我最终写了以下内容:
Function getOffice (strname, uname)
strEmail = uname
WScript.Echo "email: " & strEmail
Dim objRoot : Set objRoot = GetObject("LDAP://RootDSE")
Dim objDomain : Set objDomain = GetObject("LDAP://" & objRoot.Get("defaultNamingContext"))
Dim cn : Set cn = CreateObject("ADODB.Connection")
Dim cmd : Set cmd = CreateObject("ADODB.Command")
cn.Provider = "ADsDSOObject"
cn.Open "Active Directory Provider"
Set cmd.ActiveConnection = cn
cmd.CommandText = "SELECT physicalDeliveryOfficeName FROM '" & objDomain.ADsPath & "' WHERE mail='" & strEmail & "'"
cmd.Properties("Page Size") = 1
cmd.Properties("Timeout") = 300
cmd.Properties("Searchscope") = ADS_SCOPE_SUBTREE
Dim objRS : Set objRS = cmd.Execute
If IsNull(objRS.Fields(0)) = TRUE Then
getOffice = "BLANK"
Else
getOffice = objRS.Fields(0)
WScript.Echo getOffice
End If
Set objRS = Nothing
Set cmd = Nothing
Set cn = Nothing
Set objDomain = Nothing
Set objRoot = Nothing
End Function
关于VBScript LDAP : Is there a way to query for physicalDeliveryOfficeName using the email address in Active Directory?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/282627/