>Const ADS_SCOPE_SUBTREE = 2 >Set objConnection = CreateObject("ADODB.Connection") >Set objCommand = CreateObject("ADODB.Command") >objConnection.Provider = "ADsDSOObject" >objConnection.Open "Active Directory Provider" >Set objCommand.ActiveConnection = objConnection >objCommand.Properties("Page Size") = 1000 >objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE >objCommand.CommandText = _ > "SELECT distinguishedName,Name,displayname FROM 'LDAP://dc=bogus,dc=local' WHERE objectCategory='user' " & _ >Set objRecordSet = objCommand.Execute >objRecordSet.MoveFirst >Do Until objRecordSet.EOF > Wscript.Echo objRecordSet.Fields("distinguishedName").Value > Wscript.Echo objRecordSet.Fields("Name").Value > Wscript.Echo objRecordSet.Fields("displayName").Value > objRecordSet.MoveNext >Loop >>