通過傳遞家庭電話VBScript查找Active Directory用戶名

Question

我對Active Directory和WSH腳本用於查詢使用LDAP有點不熟悉。如果我將家庭電話字段作爲參數提供給AD/LDAP查詢，我有奇怪的請求能夠自動執行（僅通過VBScript）從AD服務器獲取Active Directory用戶名。

有誰知道這是可能做到的嗎？

謝謝！

Answer 1

我已經找到了有興趣的解決方案：

Set rootDSE = GetObject("LDAP://RootDSE") 
base = "<LDAP://" & rootDSE.Get("defaultNamingContext") & ">" 
'filter on user objects with the given account name 
fltr = "(&(objectClass=user)(objectCategory=Person)" & _ 
     "(homePhone=yourphone))" 
'add other attributes according to your requirements 
attr = "distinguishedName,sAMAccountName" 
scope = "subtree" 

Set conn = CreateObject("ADODB.Connection") 
conn.Provider = "ADsDSOObject" 
conn.Open "Active Directory Provider" 

Set cmd = CreateObject("ADODB.Command") 
Set cmd.ActiveConnection = conn 
cmd.CommandText = base & ";" & fltr & ";" & attr & ";" & scope 

Set rs = cmd.Execute 
Do Until rs.EOF 
    WScript.Echo rs.Fields("sAMAccountName").Value 
    rs.MoveNext 
Loop 
rs.Close 

conn.Close