连接和拆分返回 ubound(array) + 1 件

Question

我试图理解我哪里出了问题。以下脚本将始终在数组末尾返回一个空项。为什么？我不认为这是记录集的问题。有什么想法吗？

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

Answer 1

您的循环：

Do Until adoRecordset.EOF
    strList = strList & adoRecordSet.Fields("name").Value & ","
    adoRecordset.MoveNext
loop

在 strList 的末尾放置最后一个/尾随/终止“，”。 Split() 将“,”视为分隔符（而不是终止符），因此生成的数组有一个虚假的最后一个空元素。

为了避免这种情况，您可以连接 "," & value 在循环中并使用 Mid() 取消前面的“,”。但是为什么不在循环之前使用“SELECT COUNT”或 Recordset.Count 来确定数组的尺寸并将值分配给其元素，或者 - 甚至更好 - Recordset.GetRows() 直接获取一个（尽管是 2 个暗淡）数组 -> ;没有连接，没有分割，没有问题。