将计算机列表添加到域组

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组。

这可能是非常基本的，但我的脑袋现在有点充实.. :(

Answer 1

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

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