Crear un grupo y asignarle usuarios desde un archivo de texto

Te he creado el siguiente script que tendrás que copiar en un archivo de
texto y ponerle extensión .vbs
No lo he probado, así que mejor lo pruebas en un dominio de pruebas, por si
acaso.
Los usuarios los pones en un archivo "usuarios.txt", y en cada linea pones
separados por comas el nombre del usuario, grupo al que pertenecerá y OU de
ambos (sólo el nombre de la OU si es de primer nivel; si es de segundo nivel
ponla en la forma VENTAS,OU=SEVILLA para que al formar las cadenas LDAP
queden en la forma correcta). Si quieres tener en distinta OU los grupos de
los usuarios, es muy fácil añadir la segunda OU al final de cada linea
separada por una coma, y usar un DataUsu(3) por ejemplo para la OU de los
grupos 8 tendrías que cambiar la linea en que se define la variable
strGrupo, sustituyendo DataUsu(2) por DataUsu(3).

El script es el siguiente:

// El archivo usuarios.txt tendrá una linea por cada usuario,
// y separado por comas, usuario, grupo y OU de ambos
// DataUsu(0) contiene el nombre del usuario
// Datausu(1) el nombre del grupo al que pertenecerá
// DataUsu(2) el nombre de la OU de ambos

Const ForReading = 1
Set strDominio = ",dc=tu,dc=dominio,dc=com" // OJO, lleva una coma delante

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("c:\prueba\usuarios.txt", ForReading)

Do Until objTextFile.AtEndOfStream
strNextLine = objTextFile.Readline
DataUsu = Split(strNextLine , ",")
strOU="LDAP://OU=" & DataUsu(2) & strDominio
strGrupo="LDAP://cn=" & DataUsu(1) & ",OU=" & DataUsu(2) & strDominio
Set objOU = GetObject(strOU)
Set objUser = objOU.Create("User", "cn= " & DataUsu(0))
objUser.Put "sAMAccountName", DataUsu(0)
objUser.SetInfo
Set objGrupo = GetObject(strGrupo)
objGrupo.Add objUser.ADSPath
Loop

FIN DEL ARCHIVO (esto no lo pongas)

Espero que te sirva
Un saludo
José Antonio Quílez

"naza1930" wrote in message
news:
Gente alguien sabe que herramienta utilizar en W2003 para crear un
grupo y agregarle usuarios desde un archivo de texto
Tengo que crear grupos y asignarle bastantes usuarios a cada uno, la
idea era automatizarlo lo mas posible...

En NT existe la herramienta usrtogrp.exe que te permita agregar
usuarios a grupos desde un archivo de texto pero no funciona en W2003.
Necesito algo así... alguien conoce una herramienta así?

Muchas gracias!!