Скрипт для получения определенных компьютерных объектов И отображения их соответствующих OU

У меня есть подразделение с множеством подразделов, каждое из которых имеет подразделение для компьютеров. Подразделение самого высокого уровня для начала - это «Департаменты» с множеством под-подразделений.

Мне нужен сценарий, чтобы получить все компьютеры и перечислить их в таблице с отображением их соответствующих OU.

Результат сценария может выглядеть примерно так:

Имя компьютера --- OU

Компьютер01 ---- Fabrikam.com/Departments/Finance/Computers

.... или это может даже выглядеть как соответствующий объект AD:

Fabrikam.com/Departments/Finance/Computers/Computer01

Хотя я предпочитаю первый.

Это сценарий, который я пробовал, но когда я его запускаю, он выдает массу ошибок:

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=Departments,dc=fabrikam,dc=com' WHERE " & _
        "objectCategory='organizationalUnit'"  

Set objRecordSet = objCommand.Execute

objRecordSet.MoveFirst

Do Until objRecordSet.EOF
    Set objOU = GetObject(objRecordSet.Fields("ADsPath").Value)
    Wscript.Echo objOU.distinguishedName

    objOU.Filter = Array("Computer")

    For Each objItem in objOU
        Wscript.Echo "  " & objItem.CN
    Next

    Wscript.Echo
    Wscript.Echo
    objRecordSet.MoveNext
Loop

Как я могу получить все компьютеры в OU и перечислить их в таблице с соответствующими OU? Вроде просто, но я нигде не могу найти рабочий скрипт. Спасибо!