Listado de usuarios miembros de un Grupo

Prueba con este script de Fernando Reyes [MVP Windows]

<pego>
' Filename: userInGroup.vbs
' Revision: v1.0
' Author: Fernando Reyes [MVP Windows Server]
'
' Modified: Marc [MVP Windows]
'
' Date: 15/11/2004
' Revised: 23/11/2004
' Sintaxis: userInGroup.vbs pathToLog


On Error Resume Next

Const ForReading = 1, ForWriting = 2, ForAppending = 8


'**** Comprobación de argumentos
If WScript.Arguments.count > 0 Then
FicheroSalida = WScript.Arguments.item(0)
Else
FicheroSalida = InputBox("Nombre del fichero a crear", "Gestion de
usuarios y grupos")
End If

'*** Creación fichero salida

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile (FicheroSalida, ForWriting, True)

'*** Iteración

Set obj_Dominio = GetObject("WinNT://nombreDominio,Domain")
obj_Dominio.Filter = Array("Group")

For Each obj_Nombre_Grupo In obj_Dominio

Set obj_Grupo = GetObject("WinNT://nombreDominio/" &
obj_Nombre_Grupo.Name & ",Group")

'objTextFile.WriteLine("Nombre del grupo: " & obj_Nombre_Grupo.Name)

obj_Grupo.members.Filter = Array("User")
For Each obj_Nombre_Usuario In obj_Grupo.members

'objTextFile.WriteLine(obj_Nombre_Usuario.Company)
objTextFile.WriteLine(obj_Nombre_Grupo.Name & ";" &
obj_Nombre_Usuario.FullName & ";" & obj_Nombre_Usuario.Name)

Next
Next

objTextFile.Close
set ObjTextFile = Nothing

' wscript.Echo "dONE!!!"

</pego>

Saludos,

Marc
MCP - MVP Windows Shell/User
Oracle9i Certified Associate (OCA)

Este mensaje se proporciona "como está" sin garantías de ninguna clase, y no
otorga ningún derecho.


"Petereson" wrote:

Hola compañeros,

He intentado desde W2003 visualizar los usuarios que contiene un grupo
determinado para poder listar los miembros pero no encuentro el modo de
hacerlo, he probado con un query pero no me resulta facil. Recurdo que antes
en NT habia una un comando-herramienta que podias ejecutarla y te daba todos
los usuarios que tenía un grupo... Pues bien, alguien de vosotros podría
echarme una mano. Muy agradecido de antemano.

Un saludo
Peterson