VB Scripting

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I'm connecting to our AD database using the following statements in a VB
Script to pull out the user name and phone number:

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


objCommand.Properties("Sort On") = "Name"
objCommand.CommandText = "<LDAP://MY_DOMAIN>;(objectCategory=user)" &
";ADsPath,Name,telephoneNumber;subtree"

Set objRecordSet = objCommand.Execute

It all appears to work ok, but when I check the logs from the script it
appears to only be searching through the first 1000 users in the database.
Can anyone tell me if there's a limit to how many users you can search
through using the above command? Or, does anyone have any other ideas on
what's happening?

Any help is appreciated
 
Mat said:
I'm connecting to our AD database using the following statements in a VB
Script to pull out the user name and phone number:

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


objCommand.Properties("Sort On") = "Name"
objCommand.CommandText = "<LDAP://MY_DOMAIN>;(objectCategory=user)" &
";ADsPath,Name,telephoneNumber;subtree"

Set objRecordSet = objCommand.Execute

It all appears to work ok, but when I check the logs from the script it
appears to only be searching through the first 1000 users in the database.
Can anyone tell me if there's a limit to how many users you can search
through using the above command? Or, does anyone have any other ideas on
what's happening?

Any help is appreciated
Click to expand...

You have to turn on results paging for your results - this can be doen
by specyfing a number on records in one page:

objCommand.Properties("Page Size") = 1000
 
Thanks Tomasz, that worked a treat!

Tomasz Onyszko said:
You have to turn on results paging for your results - this can be doen
by specyfing a number on records in one page:

objCommand.Properties("Page Size") = 1000
Click to expand...
 
Back
Top