Active DirectoryのDisplayNameを使用してSamAccountnameを取得する

Question

displaynameを使用してLDAPクエリを実行し、私のSamAccountNameを取得するvbscriptが必要です。

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