vbscript - 将计算机列表添加到域组

Question

这可能很简单，但我有一个包含一堆计算机名的文本文件，我想将它们添加为某个 AD 组的成员。问题是，我不知道计算机名称的 CN 或完整路径，因为计算机可能位于域结构中的三个不同的 OU 上。

所以，到目前为止我得到的代码是这样的（strLine 是简短的计算机名）：

contents = textFile.ReadAll
arrLines = Split(contents,vbCrLf)

For Each strLine in arrLines
  AddToGroup strLine
next

textFile.Close

并且尚未创建函数“AddToGroup”。基本上，这需要使用参数 (strLine) 并查找计算机名以获得完整的 CN 名称。然后将其添加到 AD 组。

这可能是非常基本的，但我现在有点满头了.. :(

score 0 · Accepted Answer

没关系，通过在另一个脚本之前找出 CN 来让它自己工作。像这样：

Set ADSys = CreateObject("ADSystemInfo")
FullCN = ADSys.ComputerName

1 回答 1