Listar usuarios de un grupo

http://www.fermu.com/content/view/241/2/lang,es/


Saludos,

Marc
MVP Windows Shell / User
MCSA Windows Server 2003
Oracle9i Certified Associate (OCA)

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

"Alexbass" escribió en el mensaje news:

Hola a todos, tengo el siguiente problema necesito poder listar los usuarios
que pertenecen a un grupo determinado en un dominio, uso el siguiente comando

net group "nombre" /domain>permisos.txt

Esto me funciona con nombres como admins, o call, pero cuando intento un
nombre como Op_segundo_nivel, me dice que el grupo no existe, he probado a
ponerlo entre comillas, pero no funciona.

¿alguien me puede echar una manilla?

Saludos y gracias por adelantado.

Ok. Sin problemas (se lo comentas a Fermu para que lo actualice en su web?)


Saludos,

Marc
MVP Windows Shell / User
MCSA Windows Server 2003
Oracle9i Certified Associate (OCA)

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

"Fernando Reyes [MS MVP]" escribió en el mensaje news:%
¿Por qué no ponerle otro parámetro que sea el nombre del dominio? -(|;o)):

' Filename: userInGroup.vbs
' Revision: v2.1 - Paso de parámetros
' Author: Fernando Reyes [MVP Windows Server]
'
' Modified: Marc [MVP Windows]. Search conditional
' Modified: Fernando Reyes [MVP Windows Server]. Parameter Domain name
'
' Date: 15/11/2004
' Revised: 19/11/2004
' Sintaxis: userInGroup.vbs pathToLog groupToFind

On Error Resume Next

Const ForAppending = 8

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

If WScript.Arguments.count > 1 Then
nombreGrupo = WScript.Arguments.item(1)
Else
nombreGrupo = InputBox("Nombre del grupo a buscar", "Grupo a buscar")
End If

If WScript.Arguments.count > 2 Then
nombreDominio = WScript.Arguments.item(2)
Else
nombreDominio = InputBox("Nombre NetBios del dominio en el que buscar", "Grupo a buscar")
End If
'********************************** Creación fichero salida *****************************************

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile (FicheroSalida, ForAppending, 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")

If LCase(obj_Nombre_Grupo.Name) = LCase(nombreGrupo) then

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.FullName & " ; " & obj_Nombre_Usuario.Name)

Next
End If
Next

objTextFile.Close
set ObjTextFile = Nothing

Un saludo
Fernando Reyes [MS MVP]
MCSE Windows 2000 / 2003
MCSA Windows Server 2003
http://freyes.svetlian.com
http://www.bloglines.com/blog/urpiano

(Cómete un par de almejas para escribirme)



Y fue Marc [MVP Windows] () quien en el mensaje , planeando sobre su teclado, hizo un picado y tecleó:

http://www.fermu.com/content/view/241/2/lang,es/


Saludos,

Marc
MVP Windows Shell / User
MCSA Windows Server 2003
Oracle9i Certified Associate (OCA)

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

"Alexbass" escribió en el
mensaje news:

Hola a todos, tengo el siguiente problema necesito poder listar los
usuarios
que pertenecen a un grupo determinado en un dominio, uso el
siguiente comando

net group "nombre" /domain>permisos.txt

Esto me funciona con nombres como admins, o call, pero cuando
intento un
nombre como Op_segundo_nivel, me dice que el grupo no existe, he
probado a
ponerlo entre comillas, pero no funciona.

¿alguien me puede echar una manilla?

Saludos y gracias por adelantado.

Muchas gracias por vuestra ayuda, probaré y os cuento que tal me va.

Saludos.

"Marc [MVP Windows]" escribió:

Ok. Sin problemas (se lo comentas a Fermu para que lo actualice en su web?)


Saludos,

Marc
MVP Windows Shell / User
MCSA Windows Server 2003
Oracle9i Certified Associate (OCA)

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

"Fernando Reyes [MS MVP]" escribió en el mensaje news:%
¿Por qué no ponerle otro parámetro que sea el nombre del dominio? -(|;o)):

' Filename: userInGroup.vbs
' Revision: v2.1 - Paso de parámetros
' Author: Fernando Reyes [MVP Windows Server]
'
' Modified: Marc [MVP Windows]. Search conditional
' Modified: Fernando Reyes [MVP Windows Server]. Parameter Domain name
'
' Date: 15/11/2004
' Revised: 19/11/2004
' Sintaxis: userInGroup.vbs pathToLog groupToFind

On Error Resume Next

Const ForAppending = 8

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

If WScript.Arguments.count > 1 Then
nombreGrupo = WScript.Arguments.item(1)
Else
nombreGrupo = InputBox("Nombre del grupo a buscar", "Grupo a buscar")
End If

If WScript.Arguments.count > 2 Then
nombreDominio = WScript.Arguments.item(2)
Else
nombreDominio = InputBox("Nombre NetBios del dominio en el que buscar", "Grupo a buscar")
End If
'********************************** Creación fichero salida *****************************************

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile (FicheroSalida, ForAppending, 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")

If LCase(obj_Nombre_Grupo.Name) = LCase(nombreGrupo) then

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.FullName & " ; " & obj_Nombre_Usuario.Name)

Next
End If
Next

objTextFile.Close
set ObjTextFile = Nothing

Un saludo
Fernando Reyes [MS MVP]
MCSE Windows 2000 / 2003
MCSA Windows Server 2003
http://freyes.svetlian.com
http://www.bloglines.com/blog/urpiano

(Cómete un par de almejas para escribirme)



Y fue Marc [MVP Windows] () quien en el mensaje , planeando sobre su teclado, hizo un picado y tecleó:

> http://www.fermu.com/content/view/241/2/lang,es/
>
>
> Saludos,
>
> Marc
> MVP Windows Shell / User
> MCSA Windows Server 2003
> Oracle9i Certified Associate (OCA)
>
> Este mensaje se proporciona "como está" sin garantías de ninguna
> clase, y no otorga ningún derecho.
>
> "Alexbass" escribió en el
> mensaje news:
>> Hola a todos, tengo el siguiente problema necesito poder listar los
>> usuarios
>> que pertenecen a un grupo determinado en un dominio, uso el
>> siguiente comando
>>
>> net group "nombre" /domain>permisos.txt
>>
>> Esto me funciona con nombres como admins, o call, pero cuando
>> intento un
>> nombre como Op_segundo_nivel, me dice que el grupo no existe, he
>> probado a
>> ponerlo entre comillas, pero no funciona.
>>
>> ¿alguien me puede echar una manilla?
>>
>> Saludos y gracias por adelantado.