vbscript - コンピュータのリストをドメイングループに追加する

Question

これはおそらく非常に単純ですが、特定の AD グループのメンバーとして追加したい多数のコンピューター名を含むこのテキストファイルがあります。問題は、コンピューターがドメイン構造内の 3 つの異なる OU にある可能性があるため、コンピューター名の CN またはフルパスがわからないということです。

したがって、これまでに取得したコードは次のとおりです (strLine は短いコンピューター名です)。

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

For Each strLine in arrLines
  AddToGroup strLine
next

textFile.Close

また、「AddToGroup」関数はまだ作成されていません。基本的に、これは引数 (strLine) を取り、コンピューター名を検索して完全な CN 名を取得する必要があります。そして、それを AD グループに追加します。

これはおそらくかなり基本的なことですが、私の頭は今ちょっといっぱいです.. :(

score 0 · Accepted Answer

気にしないで、他のスクリプトの前に CN を見つけて、自分で動作させるようにしました。このような：

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

vbscript - コンピュータのリストをドメイン グループに追加する