Descripción del problema

Nunca habéis tenido la necesidad de listar los usuarios que tienes en TODOS y cada uno de los grupos del Active Directory? Y de un solo grupo?

Bien, el script de hoy es una modificación de un mismo script que "encargué" a Fernando Reyes [MVP Windows Server]

Vamos a verlo...

Descripción del código

El archivo con el código lo podeís descargar, como siempre, de nuestro repositorio, en donde está ubicado con el nombre userinGroup-v2.vbs

Lo primero que hemos de ver es que en este script le pasamos dos parámetros de entrada. Uno para que nos cree el archivo de texto con el resultado de la consulta, y otro con el nombre del grupo del cual queremos sacar el listado de los usuarios.

NOTA: Se podría mejorar con un tercer parámetro en el que le pasáramos el nombre NetBIOS del dominio en el que queremos ejecutar el script.

Bien, el funcionamiento es muy sencillo, hasta tonto.

Dentro del "FOR" en la linea Set obj_Grupo = GetObject("WinNT://nombreDominio/" & obj_Nombre_Grupo.Name & ",Group") estamos pidiendo que nos busque sólo los grupos que tenemos en el AD.

El "IF" compara si el nombre del grupo que estamos mirando es igual al que le hemos pasado. Nótese de que se usa la función "LCase" para comprar en minúsculas ambas variables, ya que si no se hiciera, no funcionaría (y os volveríais locos... lo sé)

Si el IF es exitoso, filtramos en el objeto que nos guarda los nombres de los grupos, filtramos para que nos muestre los nombres de los usuarios. Y una vez aquí, sólo hemos de escribir en el fichero de salida los datos deseados

Marc
MCP - MVP Windows - Shell/User