2010-03-02 5 views
0

C'est probablement assez simple, mais j'ai ce fichier texte contenant un tas de noms d'ordinateurs que je veux ajouter en tant que membres d'un certain groupe AD. Il est, je ne sais pas le CN ou le chemin complet des noms d'ordinateur, parce que les ordinateurs peuvent se trouver sur trois unités d'organisation différentes dans la structure de domaine.Ajouter la liste des ordinateurs au groupe de domaine

Alors, je le code que j'ai jusqu'à présent est ce (strLine est court computername):

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

For Each strLine in arrLines 
    AddToGroup strLine 
next 

textFile.Close 

Et la fonction « AjouterÀGroupe » est pas encore créé. Fondamentalement, cela doit prendre l'argument (strLine) et rechercher le nom de l'ordinateur pour obtenir le nom CN complet. Et puis ajoutez-le au groupe AD.

Ceci est probablement assez basique, mais ma tête est un peu plein moment .. :(

Répondre

0

Nevermind obtenu à moi-même travailler en trouvant le CN avant l'autre scénario comme ceci:.

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