Listing 2: FindServers.vbs

Option Explicit
On Error Resume Next
Dim objConnection
Dim objCommand
Dim strQuery
Dim objRecordSet

Set objCommand = CreateObject("ADODB.Command")
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
objCommand.ActiveConnection = objConnection

strQuery = "<LDAP://dc=mycompany, dc=com>;" & _
  "(&(objectCategory=computer)(operatingSystem=windows*server*));" _
  & "name;subtree"
objCommand.CommandText = strQuery
Set objRecordSet = objCommand.Execute

Do Until objRecordSet.EOF  
  WScript.Echo objRecordSet.Fields("Name")
  objRecordSet.MoveNext
Loop