將計算機列表添加到域組

這可能很簡單，但我已經獲得了包含一系列計算機名的文本文件，我想將其添加爲某個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組。

這可能是非常基本的，但我的頭是有點滿，現在.. :(

沒關係，得到了它的通過找出CN工作之前自己到其他腳本是這樣的：

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

2010-03-02 10:09:22

回答