0

我真的是 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 中输入的计算机名称显示相同的内容。任何帮助将不胜感激。

干杯

4

1 回答 1

0

您必须向 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-30T16:37:27.387 回答