¡ Por favor active Javascript! / Please turn on Javascript!
Otras versiones Servidor de Windows no clasificadas: NT 4.0 ...
Avatar de Usuario
Cazador
Colaborador
Mensajes: 1830
Registrado: 16 Abril 2015, 19:16
C. Prof.: Analista de Sistemas
Contactar:

Script para exportar los usuarios de Unidad Organizativa

Mensajepor Cazador » 27 Septiembre 2016, 15:54

Ejemplo de Script para la exportación de usuarios de una Unidad Organizativa

Código: Seleccionar todo

'Global variables
    Dim oContainer
    Dim OutPutFile
    Dim FileSystem
    Dim direccion


'Initialize global variables
    Set FileSystem = WScript.CreateObject("Scripting.FileSystemObject")
    Set OutPutFile = FileSystem.CreateTextFile("listado_usuarios.txt", True)
    Set oContainer=GetObject("LDAP://OU=Usuarios,DC=ELSATE,DC=com")
'Enumerate Container
    EnumerateUsers oContainer
'Clean up
    OutPutFile.Close
    Set FileSystem = Nothing
    Set oContainer = Nothing
    WScript.Echo "Finished"
    WScript.Quit(0)
Sub EnumerateUsers(oCont)
    Dim oUser
    For Each oUser In oCont
        Select Case LCase(oUser.Class)
               Case "user"
         If Not IsEmpty(oUser.name) Then
         direccion = replace( oUser.streetAddress, chr(10) , " ")
         direccion = replace( oUser.streetAddress, chr(13) , " ")

            OutPutFile.WriteLine "'" & oUser.sAMAccountName & "';'" & oUser.givenName & "';'" & oUser.sn & "';'" & oUser.initials & "';'" & oUser.mail & "';'" & direccion & "';'" & oUser.homephone & "';'" & oUser.mobile & "';'" & oUser.facsimileTelephoneNumber & "';'" & oUser.title & "';'" & oUser.physicalDeliveryOfficeName & "';'" & oUser.Company & "';"
         End If
                    'If Not IsEmpty(oUser.distinguishedName) Then
                    '   OutPutFile.WriteLine "dn: " & oUser.distinguishedName
                    'End If
                    'If Not IsEmpty(oUser.name) Then
                    '   OutPutFile.WriteLine "Nombre: " & oUser.Get ("name")
                    'End If
                    'If Not IsEmpty(oUser.streetAddress) Then
                    '   OutPutFile.WriteLine "Direccion: " & oUser.streetAddress
                    'End If
                    'If Not IsEmpty(oUser.l) Then
                    '   OutPutFile.WriteLine "l: " & oUser.l
                    'End If
                    'If Not IsEmpty(oUser.st) Then
                    '   OutPutFile.WriteLine "st: " & oUser.st
                    'End If
                    'If Not IsEmpty(oUser.postalcode) Then
                    '   OutPutFile.WriteLine "postalcode: " & oUser.postalcode
                    'End If
               Case "organizationalunit", "container"
                    EnumerateUsers oUser
        End Select
        'OutPutFile.WriteLine
    Next
End Sub
Redactor de ELSATE.com. Aficionado de la Tecnología, los Videojuegos, la Música Electrónica y el Deporte.





Volver a “Otros”

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados