'================================================
'
' VBScript:  AUTHOR: Ed Wilson , MS,  11/09/2003
'
' NAME: <ConnectToADOU.vbs>
'
' COMMENT: Key concepts are listed below:
'1. making connection to AD
'2. Controlling results by using a filter
' REVISIONS:
' 11/10/2003 connection string - split into parts
' 11/11/2003 added computer filter to query
' 11/12/2003 changed names of vars from obj to o
'================================================


Option Explicit
'On Error Resume Next

dim qQuery
dim oConnection
dim oCommand
dim oRecordSet
Dim oDom
Dim oProvider
Dim oOU

oProvider = "'LDAP://"
oDom = "dc=nwtraders, dc=msft'" 
oOU = "ou=workstations,"
qQuery = "Select Name from " & oProvider _
& oOU & oDom & "where objectClass='computer'"

Set oConnection = CreateObject("ADODB.Connection")
Set oCommand = CreateObject("ADODB.Command")
oConnection.Open "Provider=ADsDSOObject;"
oCommand.ActiveConnection = oConnection
oCommand.CommandText = qQuery
Set oRecordSet = oCommand.Execute

While Not oRecordSet.EOF
    Wscript.Echo oRecordSet.Fields("name")
    oRecordSet.MoveNext
Wend

oConnection.Close