在多个域的网络上显示一台计算机的OU

我真的很陌生，VB的脚本世界，所以请温柔:)我试图显示一个有2个域的网络上的计算机的OU。我有一个脚本来显示本地计算机的详细信息：在多个域的网络上显示一台计算机的OU

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

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

欢呼声

来源

2013-04-30 Ronnie S

您必须向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

来源

2013-04-30 16:37:27

感谢堆的答复！将测试它，看看它是否适合我！欢呼:) – 2013-05-02 09:51:53

嗨！我尝试了你的建议脚本，我收到错误消息对象需要'obj'。难道我做错了什么？再次感谢 – 2013-05-03 07:58:27

如果obj是'Nothing'（使用'WScript.Echo TypeName（obj）'检查）查询没有找到匹配的对象。您登录的域名是否实际上具有匹配的计算机对象？ – 2013-05-04 23:16:28

在多个域的网络上显示一台计算机的OU

回答

相关问题