Как я могу получить каталог подразделения LDAP для текущего компьютера в VBA для использования в excel?

#excel #vba

Вопрос:

Мне удалось с помощью powershell получить подразделение текущего компьютера, выполнив следующие действия в powershell;

 > $objDomain = New-Object System.DirectoryServices.DirectoryEntry  
> $strFilter = "(amp;(objectCategory=computer)(name="   $env:computername  
> "))"
> 
> $objSearcher = New-Object System.DirectoryServices.DirectorySearcher  
> $objSearcher.SearchRoot = $objDomain   $objSearcher.Filter =
> $strFilter
> 
> $strPath = $objSearcher.FindOne().Path Write-host $strPath
 

Результат слишком грязный для обычного пользователя, но я планирую очистить его с помощью чего-то вроде Родителя/Родителя/Родителя/Ребенка

Это работает для получения родительского подразделения текущего ПК в VBA excel

 Function GetComputerOU
    Dim objSysInfo: Set objSysInfo = CreateObject("ADSystemInfo")
    Dim objComputer: Set objComputer = GetObject("LDAP://" amp; objSysInfo.ComputerName)
    Dim objOU : Set objOU = GetObject(objComputer.Parent)
    GetComputerOU = objOU.OU
End Function
 

Однако мне нужен полный каталог, как я могу получить Родительское/Родительское/Родительское/Дочернее подразделение текущего компьютера в объявлении?