现在输出的sResultText 是乱的(应该是基于编辑日期) 希望输出结果能够按照后三位代码排序
先谢谢回答的大神了
主要部分代码- con.Provider = "ADsDSOObject"
- con.Open
- Com.ActiveConnection = con
- Com.CommandText = "<LDAP://DC=,DC=com>;" &"(objectClass=computer);name;subTree"
- Com.Properties("Page Size") = 1000
- Com.Properties("Searchscope") = ADS_SCOPE_SUBTREE
-
-
- Set rs = Com.Execute ()
- rs.MoveFirst
- Do Until rs.EOF
-
- sResultText=rs.Fields("name").Value
-
- Select Case Left (sResultText,9)
-
- Case "关键字”
-
- Wscript.Echo (sResultText)
-
- End Select
-
- rs.MoveNext
- Loop
-
- con.Close
-
- end if
复制代码
|