Question

我需要使用displayname执行LDAP查询的vbscript，并为我检索SamAccountName。

Answer 1

这样的事情应该这样做：

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")

objConnection.Open "Provider=ADsDSOObject;"
objCommand.ActiveConnection = objConnection

strDomainName = "dc=YOURDOMAIN,dc=com"
strUserCN = "FIRSTNAME LASTNAME"

objCommand.CommandText = "<LDAP://" & strDomainName & ">;(&(objectCategory=person)(objectClass=user)(cn=" & strUserCN & "));samAccountName;subtree"

Set objRecordSet = objCommand.Execute

If Not objRecordset.EOF Then
    WScript.Echo objRecordSet.Fields("samAccountName")
End If

objConnection.Close
Set objRecordSet = Nothing
Set objConnection = Nothing
Set objCommand = Nothing

Answer 2

很棒的脚本（并且比较喜欢）但是目前只显示记录集中的第一个结果 - 显示输出位需要更像这样的东西：

DO until objRecordset.EOF = TRUE

    WScript.Echo objRecordSet.Fields("samAccountName")
    objRecordSet.MoveNext

Loop

使用Active Directory中的DisplayName获取SamAccountname

2 个答案: