显示具有多个域的网络上计算机的 OU答案

【问题标题】：Display OU of a computer on a network with multiple domains显示具有多个域的网络上计算机的 OU
【发布时间】：2013-04-30 12:19:25
【问题描述】：

我真的是 VBscripting 世界的新手，所以请保持温和 :) 我正在尝试在具有 2 个域的网络上显示计算机的 OU。我有一个脚本来显示本地计算机的详细信息：

Set objSysInfo = CreateObject("ADSystemInfo")
strComputerDN = objSysInfo.ComputerName
Set objComputer = GetObject("LDAP://" & strComputerDN)
Set objNetwork = CreateObject("Wscript.Network")
Wscript.Echo objComputer.distinguishedName

但是我没有运气为我在 InputBox 中输入的计算机名称显示相同的名称。任何帮助将不胜感激。

干杯

【问题讨论】：

标签： networking vbscript get ou

【解决方案1】：

您必须向 AD 查询该名称。我的ADQuery 课程应该可以帮助您了解大部分所需的样板代码。

'<-- insert class code here

computer = ...

Set qry = New ADQuery
qry.Filter = "(&(objectCategory=computer)(sAMAccountName=" & computer & "$))"

Set obj = qry.Execute
Do Until obj.EOF
  WScript.Echo Split(obj("distinguishedName").Value, ",", 2)(1)
  obj.MoveNext
Loop
obj.Close

【讨论】：

非常感谢您的回复！将对其进行测试，看看它是否适合我！干杯:)
嗨！我尝试了您建议的脚本，但收到错误消息 Object required 'obj'。难道我做错了什么？再次感谢
如果 obj 是 Nothing（检查 WScript.Echo TypeName(obj)）查询没有找到匹配的对象。您登录的域实际上是否有匹配的计算机对象？
是的，这台计算机在我尝试使用 5 台不同计算机的域中，但我遇到了同样的错误。第 401 行字符 1，需要对象“obj”。干杯