Set conn = CreateObject("ADODB.Connection")
conn.Provider = "ADsDSOObject"
conn.Properties("User ID") = "DOMAIN\USER"
conn.Properties("Password") = "PASSWORD"
conn.Properties("Encrypt Password") = True
conn.Open "Active Directory Provider"
set oCmd = CreateObject("ADODB.Command")
oCmd.ActiveConnection = conn
oCmd.Properties("Page Size") = 10
oCmd.Properties("Asynchronous") = true

root = "<LDAP://DOMAIN.COM/ou=MYOU,ou=OU,DC=DOMAIN,DC=COM>"


filt = "(objectClass=user)"
attributes = "cn"
scope = "base"
QueryString = root & ";" & filt & ";" & attributes & ";" & scope
oCmd.CommandText = QueryString 

Set rs = oCmd.Execute

'On error resume next

While Not rs.EOF
  strng1 = rs.Fields("name").Value
  Wscript.Echo strng1
  rs.MoveNext
Wend