[VBS] 1000 results limit

[toxict]

Ik zit met een probleempje.
Ik kan niet echt scripten, maar ik heb hieronder een script die mij precies geeft wat ik wil.
Alleen krijg ik maar 1000 results, terwijl ik er wel 3000 terug moet krijgen.
Nu heb ik gelezen op vele fora dat het 1000 limit bekend is etc...
De oplossing is mij ook wel bekend, maar zoals ik al zei: Ik kan niet scripten.

Dit zou de oplossing moeten zijn, maar ik weet niet hoe ik deze moet implementeren in het script.

code:

oCommand.Properties("Page Size") = 1000

Kan iemand zo vriendelijk zijn mij te helpen a.u.b.?

code:

set objRootDSE = getobject("LDAP://ROOTDSE")
strExportFile = "C:\MyExport.xls" 
strRoot = objRootDSE.Get("defaultNamingContext")
strfilter = "(&(objectCategory=Person)(objectClass=User))"
strAttributes = "sAMAccountName,userPrincipalName,givenName,sn," & _
        "initials,displayName,physicalDeliveryOfficeName," & _
        "telephoneNumber,mail,wWWHomePage,profilePath," & _
        "scriptPath,homeDirectory,homeDrive,title,department," & _
        "company,manager,homePhone,pager,mobile," & _
        "facsimileTelephoneNumber,ipphone,info," & _
        "streetAddress,postOfficeBox,l,st,postalCode,c"
strScope = "subtree"

set cn = createobject("ADODB.Connection")
set cmd = createobject("ADODB.Command")

cn.open "Provider=ADsDSOObject;"
cmd.ActiveConnection = cn
cmd.commandtext = "<LDAP://" & strRoot & ">;" & strFilter & ";" & _
           strAttributes & ";" & strScope

set rs = cmd.execute

set objExcel = CreateObject("Excel.Application")
set objWB = objExcel.Workbooks.Add
set objSheet = objWB.Worksheets(1)

For i = 0 To rs.Fields.Count - 1
    objSheet.Cells(1, i + 1).Value = rs.Fields(i).Name
    objSheet.Cells(1, i + 1).Font.Bold = True
Next

objSheet.Range("A2").CopyFromRecordset(rs)
objWB.SaveAs(strExportFile)

rs.close
cn.close
set objSheet = Nothing
set objWB =  Nothing
objExcel.Quit()
set objExcel = Nothing

[Janoz]

PRG Beleid

PRG is geen afhaalbalie waar je je probleem neerzet wat vervolgens door anderen opgelost moet worden. PRG (en de devschuur) is gericht op het zelf programmeren en de problemen die daarbij komen kijken.