将计算机列表添加到域组
这可能非常简单，但我有这个文本文件，其中包含一堆我想添加为某个 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组中。
这可能是非常基本的，但我现在脑子有点满……:(
this is probably pretty simple, but I've got this text file containing a bunch of computernames that I want to add as members of a certain AD Group.
Thing is, I don't know the CN or full path of the computer names, because the computers may lie on three different OUs in the Domain structure.
So, I the code I've got so far is this (strLine is the short computername):
contents = textFile.ReadAll
arrLines = Split(contents,vbCrLf)
For Each strLine in arrLines
AddToGroup strLine
next
textFile.Close
And the function 'AddToGroup' isn't created yet.
Basically, this needs to take the argument (strLine) and look up the computername to get the full CN Name. And then add it to the AD group.
This is probably pretty basic, but my head is kinda full right now.. :(
如果你对这篇内容有疑问，欢迎到本站社区发帖提问 参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。
绑定邮箱获取回复消息
由于您还没有绑定你的真实邮箱，如果其他用户或者作者回复了您的评论，将不能在第一时间通知您！
发布评论
评论（1）
没关系，我自己通过在其他脚本之前找到 CN 来让它工作。
像这样：
Nevermind, got it to work myself by finding out the CN prior to the other script.
Like this: