>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 >>
#DEFINE ADS_SCOPE_SUBTREE 2 local objConnection, objCommand, objRecordSet objConnection = CreateObject("ADODB.Connection") objCommand = CreateObject("ADODB.Command") objConnection.Provider = "ADsDSOObject" objConnection.Open("Active Directory Provider") objCommand.ActiveConnection = objConnection objCommand.Properties("Page Size") = 1000 && this I'm not 100% sure objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE && Same here objCommand.CommandText = ; "SELECT distinguishedName,Name,displayname FROM 'LDAP://dc=bogus,dc=local' WHERE objectCategory='user' " objRecordSet = objCommand.Execute() objRecordSet.MoveFirst() Do while objRecordSet.EOF ? objRecordSet.Fields("distinguishedName").Value ? objRecordSet.Fields("Name").Value ? objRecordSet.Fields("displayName").Value objRecordSet.MoveNext() enddo store null to objConnection, objCommand, objRecordSetNot tested.