Добавить список компьютеров в группу домена - PullRequest
Новая
       12

Добавить список компьютеров в группу домена

0 голосов
/ 02 марта 2010

это, вероятно, довольно просто, но у меня есть этот текстовый файл, содержащий набор компьютерных имен, которые я хочу добавить в качестве членов определенной группы AD. Дело в том, что я не знаю CN или полный путь имен компьютеров, потому что компьютеры могут находиться в трех разных подразделениях в структуре домена.

Итак, код, который я получил до сих пор, таков (strLine - короткое имя компьютера): 

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

For Each strLine in arrLines
  AddToGroup strLine
next

textFile.Close

А функция AddToGroup еще не создана. По сути, для этого нужно взять аргумент (strLine) и найти имя компьютера, чтобы получить полное имя CN. А затем добавьте его в группу AD.

Это, наверное, довольно просто, но моя голова сейчас как будто переполнена ..: (

1 Ответ

0 голосов
/ 02 марта 2010

Неважно, заставил его работать сам, узнав CN перед другим сценарием. Как это: 

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