0
我在試着瞭解我要在哪裏出錯。以下腳本將始終在數組末尾返回一個空項目。爲什麼?我不認爲這是記錄集的問題。有任何想法嗎?連接和分割返回ubound(array)+ 1項
function allServers
Set adoCommand = CreateObject("ADODB.Command")
Set adoConnection = CreateObject("ADODB.Connection")
adoConnection.Provider = "ADsDSOObject"
adoConnection.Open "Active Directory Provider"
Set adoCommand.ActiveConnection = adoConnection
Set objRootDSE = GetObject("LDAP://RootDSE")
strDNSDomain = objRootDSE.Get("defaultNamingContext")
strBase = "<LDAP://" & strDNSDomain & ">"
strFilter = "(&(objectCategory=computer)(operatingsystem=*server*)(!userAccountControl:1.2.840.113556.1.4.803:=2))"
strAttributes = "name,distinguishedname,dnshostname"
strQuery = strBase & ";" & strFilter & ";" & strAttributes & ";subtree"
adoCommand.CommandText = strQuery
adoCommand.Properties("Page Size") = 100
adoCommand.Properties("Timeout") = 30
adoCommand.Properties("Cache Results") = False
Set adoRecordset = adoCommand.Execute
dim strList, i
Do Until adoRecordset.EOF
strList = strList & adoRecordSet.Fields("name").Value & ","
adoRecordset.MoveNext
loop
adoRecordset.Close
adoConnection.Close
arr = split(strList, ",",-1,1)
allServers = arr
end function
arr = allservers
For i = 0 to UBound(arr)
wscript.echo i & ":" & arr(i)
next
感謝您的回答。我選擇在循環中分配值。它看起來像 Active Directory提供程序不支持.Count。 – yajohn