Check the new version here

Popular channels

Active Directory - Buscar Usuarios de Grupo VB2008-2010-2013



Hola Chicos que tal... sip como dice su nombre puedes buscar a todas las personas que esten activa de un grupo en Active Directory y mostrarla donde quieras... finalmente para eliminar tantas cuentas de usuarios en cada plataforma que desarrolles...

aqui esta el codigo... yo lo probe con Visual Studio 2013 pero tambien sirve para 2010 y 2008

'Busqueda de Usuarios por Grupo Active Directory
'By Salvador Linares M. [email protected]

Imports System.DirectoryServices

Dim GroupSearcher As New DirectorySearcher
Dim GroupSearchRoot As New DirectoryEntry("LDAP://DC=TUDOMINIO,DC=COM", "TUUSUARIO", "TUCONTRASEÑA")

With GroupSearcher
.SearchRoot = GroupSearchRoot
.Filter = "(&(ObjectClass=Group)(CN=ELGRUPOQUEBUSCAR))"
End With

Dim Members As Object = GroupSearcher.FindOne.GetDirectoryEntry.Invoke("Members", Nothing)
For Each Member As Object In CType(Members, IEnumerable)
Dim CurrentMember As New DirectoryEntry(Member)
Dim Usuario As String = ""
ListBox1.Items.Add(CurrentMember.InvokeGet("sAMAccountName").ToString())
Next
End Sub


Aqui tienen unas referencias de que otras propiedades se pueden Obtener

http://www.kouti.com/tables/userattributes.htm

Saludos
0
0
0
0
0No comments yet