Allen,
I am trying to convert this.
I have the impression that the lines:
  • objCommand.Properties("Page Size") = 1000
  • objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE

give a problem during conversion...