Reference page: Active Directory – Sample Scripts (Excel/VBA) 

Description 

The function below performs 1-layer deep search of User Account object in all Organizational Units contained under parent Organizational Unit. The function can be easily modified for a recursive search if children OU hierarchy is unknown. Use objUser.Get(“distinguishedName”) to retrieve full LDAP path of found User Account object and parse path string to get OU names that contain the object.

The function returns TRUE if search was successful.

(in) sLogin – is a unique user login name which must be same as CN of an object.

(in) objRootOU – root (parent) Organizational Unit.

(out) objUser – User Account object reference

 

Private Function SearchForUser(ByVal sLogin, ByRef objRootOU, ByRef objUser)
Dim boolFound
Dim objOU
Dim sOUName, sUserName

boolFound = False
sLogin = UCase(sLogin)

objRootOU.Filter = Array("organizationalUnit")
For Each objOU In objRootOU
    sOUName = Mid(objOU.Name, 4)
    objOU.Filter = Array("user")
    For Each objUser In objOU
        sUserName = Mid(objUser.Name, 4)
        If UCase(sUserName) = sLogin Then
            boolFound = True
            Exit For
        End If
    Next
   
    If boolFound Then
        Exit For
    End If
Next

SearchForUser = boolFound

End Function