如何在 VBA 中获取当前计算机的 LDAP OU 目录以在 Excel 中使用？

大佬教程收集整理的这篇文章主要介绍了如何在 VBA 中获取当前计算机的 LDAP OU 目录以在 Excel 中使用？，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

如何解决如何在 VBA 中获取当前计算机的 LDAP OU 目录以在 Excel 中使用？？

开发过程中遇到如何在 VBA 中获取当前计算机的 LDAP OU 目录以在 Excel 中使用？的问题如何解决？下面主要结合日常开发的经验，给出你关于如何在 VBA 中获取当前计算机的 LDAP OU 目录以在 Excel 中使用？的解决方法建议，希望对你解决如何在 VBA 中获取当前计算机的 LDAP OU 目录以在 Excel 中使用？有所启发或帮助；

我已经通过在powersHell中执行以下操作，使用powersHell获取当前计算机的OU；

> $objDomain = New-Object System.Directoryservices.DirectoryEntry  
> $strFilter = "(&(object@R_502_4602@=computer)(name=" + $env:computername +
> "))"
> 
> $obJsearcher = New-Object System.Directoryservices.DirectorySearcher  
> $obJsearcher.SearchRoot = $objDomain   $obJsearcher.Filter =
> $strFilter
> 
> $strPath = $obJsearcher.FindOne().Path Write-host $strPath

结果对于普通用户来说太凌乱了，但我打算把它清理干净，比如 Parent/Parent/Parent/Child

这可以在VBA excel中获取当前PC的父OU

Function GetComputerOU
    Dim obJsysInfo: Set obJsysInfo = CreateObject("ADSystemInfo")
    Dim objComputer: Set objComputer = Getobject("LDAP://" & obJsysInfo.ComputerName)
    Dim objOU : Set objOU = Getobject(objComputer.Parent)
    GetComputerOU = objOU.oU
End Function

但是我需要完整的目录，我如何才能在 AD 中获取当前计算机的 Parent/Parent/Parent/Child OU？

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

大佬总结

以上是大佬教程为你收集整理的如何在 VBA 中获取当前计算机的 LDAP OU 目录以在 Excel 中使用？全部内容，希望文章能够帮你解决如何在 VBA 中获取当前计算机的 LDAP OU 目录以在 Excel 中使用？所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。