Usuarios y Grupos

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

disculpa mi ignorancia pero como ejecuto el script en Windows Server 2003
Standar

"Marc [MVP Windows]" escribió:

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

Copias el texto que está entre <pego> y </pego> en el Bloc de Notas y lo
guardas con extensión .vbs (agradecería meantuvieras el mismo nombre
"userInGroup.vbs").

Y luego, sólo has de hacer doble-click encima, te pedirá una ruta para
guardar el archivo resultante y ya está.

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:

disculpa mi ignorancia pero como ejecuto el script en Windows Server 2003
Standar

"Marc [MVP Windows]" escribió:

> 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

A funcionado perfectamente, lo que me ocurria es que me daba mensajes de
error debido a la forma en la que se pego separando sentencias, y por eso me
despistaba, muchas gracias por todo!!!

"Marc [MVP Windows]" escribió:

Copias el texto que está entre <pego> y </pego> en el Bloc de Notas y lo
guardas con extensión .vbs (agradecería meantuvieras el mismo nombre
"userInGroup.vbs").

Y luego, sólo has de hacer doble-click encima, te pedirá una ruta para
guardar el archivo resultante y ya está.

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:

> disculpa mi ignorancia pero como ejecuto el script en Windows Server 2003
> Standar
>
> "Marc [MVP Windows]" escribió:
>
> > 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

Gracias a ti por el feedbak :-)

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:

A funcionado perfectamente, lo que me ocurria es que me daba mensajes de
error debido a la forma en la que se pego separando sentencias, y por eso me
despistaba, muchas gracias por todo!!!

"Marc [MVP Windows]" escribió:

> Copias el texto que está entre <pego> y </pego> en el Bloc de Notas y lo
> guardas con extensión .vbs (agradecería meantuvieras el mismo nombre
> "userInGroup.vbs").
>
> Y luego, sólo has de hacer doble-click encima, te pedirá una ruta para
> guardar el archivo resultante y ya está.
>
> 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:
>
> > disculpa mi ignorancia pero como ejecuto el script en Windows Server 2003
> > Standar
> >
> > "Marc [MVP Windows]" escribió:
> >
> > > 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