在Active Directory中使用DisplayName獲取SamAccountname

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

大腳本（和Thankyou），但目前只顯示記錄的第一個結果 - 顯示輸出位需要更多的東西是這樣的：

DO until objRecordset.EOF = TRUE 

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

Loop