I have two OUs OU=Student and OU=Teachers and my root OU is

LDAP://dc=test,dc=labs,dc=edu

in the Student OU i have three computers named Std1,Std2,Std3 and three computers in Teachers OU named Tea1,Tea2,Tea3

I am writing a VBA script in Excel in which i want to display my Computers in that OU in  a excel spreadsheets.

Computer Name   Description                  OU

Std1                     Student Computers      Student

Std2                     Student Computers      Student

...................List goes on.......list of all computers in Student OU and Teachers OU

This is my script but its not working can anyone help me?

Sub ListDomains()
   
    Dim objNameSpace
    Dim Domain
    Dim ou
    Dim pcs
    Set objNameSpace = GetObject("LDAP://dc=test,dc=labs,dc=edu")
    For Each objDomain In objNameSpace
      ou = objDomain.Name
    objDomain.Filter = Array("Computer")
   
    For Each objComputer In objDomain
    pcs = objComputer.Name
    Dim i
    For i = 0 To pcs.Count - 1
    Cells(i, 1) = pcs
    Next
    Next
    Next
   
End Sub