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

Hola Marc,

Lamentablemente no me ha funcionado. Me ha dado error en la linea 21, en el
caracter 70... probablente hago algo erroneo.

Gracias
Peterson

"Marc [MVP Windows]" escribió:

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

Revisa que las lineas no se hayan cortado, porque de funcionar, funciona.

Desde el Bloc de Notas, "Ir a linea" y pon 21, y mira que esté correcta toda
ella y no cortada.

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 Marc,

Lamentablemente no me ha funcionado. Me ha dado error en la linea 21, en el
caracter 70... probablente hago algo erroneo.

Gracias
Peterson

"Marc [MVP Windows]" escribió:

> 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

Sigue tal cual
NET LOCALGROUP grupolocal
NET GROUP grupoglobal

Si el nombre del grupo tiene espacios enciérralo entre comillas dobles

Saludos

Guillermo Delprato
MVP-MCT-MCSE-MCSA-MCP
Buenos Aires, Argentina

NOTA. Por favor, las preguntas y comentarios en los grupos, así nos
beneficiamos todos. http://support.microsoft.com/kb/555375/en-us

Este mensaje se proporciona "como está" sin garantías de ninguna clase,
y no otorga ningún derecho. Ud. asume los riesgos This posting is
provided "AS IS" with no warranties, and confers no rights. You assume
all risk for your use.




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

Has probado a la antigua.

Desde el servidor ejecuta:

net group "nombre del grupo"

Nota: respeta las comillas. Si el nombre incluye espacios, los puedes hacer
sin problemas.

Si quieres guardar el listado en un archivo ejecuta lo soguiente:

net group "nombre del grupo" >listado.txt

Saludos

_________________
EMG>>>>>>>>>>>



"Marc [MVP Windows]" escribió en el mensaje
news:

Revisa que las lineas no se hayan cortado, porque de funcionar, funciona.

Desde el Bloc de Notas, "Ir a linea" y pon 21, y mira que esté correcta
toda
ella y no cortada.

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 Marc,

Lamentablemente no me ha funcionado. Me ha dado error en la linea 21, en
el
caracter 70... probablente hago algo erroneo.

Gracias
Peterson

"Marc [MVP Windows]" escribió:

> 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