Active directory

27/04/2005 - 05:18 por Miguel | Informe spam
Hola Grupo, quisiera saber como puedo imprimir la base de datos de Active
directory, o sea quiero imprimir una lista de usuarios con sus direcciones.
Etc
Gracias

Preguntas similare

Leer las respuestas

#1 Rafael E. Villaseñor Jofré
27/04/2005 - 05:41 | Informe spam
Te paso una página de SCRIPTS de MS, con una serie de ejemplos relacionado
con lo que necesitas.
http://www.microsoft.com/technet/sc...fault.mspx

Saludos.

Rafael E. Villaseñor Jofré
Tucuman 927 - Servicios Informáticos
Bs. As. - Argentina


"Miguel" escribió en el mensaje
news:
Hola Grupo, quisiera saber como puedo imprimir la base de datos de Active
directory, o sea quiero imprimir una lista de usuarios con sus
direcciones.
Etc
Gracias

Respuesta Responder a este mensaje
#2 Marc [MVP Windows]
27/04/2005 - 11:30 | Informe spam
Script de Fernando Reyes [MVP], y lo adaptas a lo que quieras

'''''''''''''''''''''' Salida de todos los datos.

<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 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, ForAppending, True)

'********************************** Iteración
*******************************************************

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

For Each obj_Nombre_Grupo In obj_Dominio

Set obj_Grupo = GetObject("WinNT://telecorp/" & 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.name)
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>


''''''''''''''''''''''''''''''''''' Paso de parámetros
<pego>

' Filename: userInGroup.vbs
' Revision: v1.1 - Paso de parámetros
' Author: Fernando Reyes [MVP Windows Server]
'
' Modified: Marc [MVP Windows]. Search conditional
'
' 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 > 0 Then
nombreGrupo = WScript.Arguments.item(1)
Else
nombreGrupo = InputBox("Nombre del grupo a 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://telecorp,Domain")
obj_Dominio.Filter = Array("Group")

For Each obj_Nombre_Grupo In obj_Dominio

Set obj_Grupo = GetObject("WinNT://telecorp/" & 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

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

"Miguel" escribió:

Hola Grupo, quisiera saber como puedo imprimir la base de datos de Active
directory, o sea quiero imprimir una lista de usuarios con sus direcciones.
Etc
Gracias

email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida