도메인 그룹에 컴퓨터 목록을 추가하십시오.

Question

이것은 매우 간단하지만이 텍스트 파일에는 특정 AD 그룹의 구성원으로 추가하려는 컴퓨터 이름이 들어 있습니다. 컴퓨터가 도메인 구조의 세 가지 다른 OU에있을 수 있기 때문에 컴퓨터 이름의 전체 경로 나 CN을 모르겠습니다.

그래서 나는 내가 지금까지 가지고 코드 (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