Usuarios y Grupos

12/05/2005 - 10:32 por Ricardo | Informe spam
Necesitaria una aplicación, ó saber como poder listar todos los usuarios que
tengo en un OU y a que grupos pertenecen, ejemplo si tengo un usuario llamado
user1 y pertenece a 3 grupos distintos que me aparececieran los 3 grupos,
user1 grupo1 grupo2 grupo3,
Muchas gracias de antemano
 

Leer las respuestas

#1 Marc [MVP Windows]
12/05/2005 - 10:51 | Informe spam
Mira este script

<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)
objTextFile.WriteLine(" Descripción 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_Usuario.FullName &
";" & obj_Nombre_Usuario.Name)

Next
Next

objTextFile.Close
set ObjTextFile = Nothing

</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.


"Ricardo" wrote:

Necesitaria una aplicación, ó saber como poder listar todos los usuarios que
tengo en un OU y a que grupos pertenecen, ejemplo si tengo un usuario llamado
user1 y pertenece a 3 grupos distintos que me aparececieran los 3 grupos,
user1 grupo1 grupo2 grupo3,
Muchas gracias de antemano

Preguntas similares