#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
Однако мне нужен полный каталог, как я могу получить Родительское/Родительское/Родительское/Дочернее подразделение текущего компьютера в объявлении?