Liste OU'er + SUB OU'er i AD

On Error Resume Next
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 adsPath FROM 'LDAP://ou=OU,dc=test,dc=local' WHERE objectCategory='user'"
Set objRecordSet = objCommand.Execute

objRecordSet.MoveFirst
Do Until objRecordSet.EOF
                      Wscript.Echo objRecordSet.Fields("adsPath").Value
                      objRecordSet.MoveNext
Loop

msgbox "done!"

Måske du kan bruge det her til noget? Det finder frem til ADSPath på alle brugere i alle SubOU'er....

Det var lige hvad jeg skulle bruge:) læg et svar.

Jamen så er her et svar.