Vypis windows user groups a ich userov   otázka

VB.NET, Bezpečnost

Zdravim. Potrebujem poradit, akym sposobom nacitam vo VB 2005 vsetky user grupy v domene a userov k jednotlivym grupam. Vdaka.

nahlásit spamnahlásit spam 0 odpovědětodpovědět

Já se v téhle problematice nevyznám, ale tuším, že by Vám mohl pomoci Snippet mr. Linharta:

http://www.vbnet.cz/snippet--27-overeni_...

nahlásit spamnahlásit spam 0 odpovědětodpovědět

Pomocí následujících metod můžete zjistit skupiny a členy skupin NA MÍSTNÍM POČÍTAČI. Pokud byste to chtěl zjišťovat ze skutečného Active Directory, bylo by to poměrně komplikovanější...

Imports System.Collections
Imports System.DirectoryServices

...

Public Function GetGroups() As List(Of String)
  Dim groups As New List(Of String)
  Using computer As DirectoryEntry = New DirectoryEntry("WinNT://" & Environment.MachineName & ",computer")
    computer.Children.SchemaFilter.Add("group")
    For Each group As DirectoryEntry In computer.Children
      groups.Add(group.Name)
    Next
  End Using
  Return groups
End Function

Public Function GetUsers(ByVal groupName As String) As List(Of String)
  Dim users As New List(Of String)
  Using computer As DirectoryEntry = New DirectoryEntry("WinNT://" & Environment.MachineName & ",computer")
    Using group As DirectoryEntry = computer.Children.Find(groupName, "group")
      If group IsNot Nothing Then
        Dim members As Object = group.Invoke("Members", Nothing)
        For Each member As Object In DirectCast(members, IEnumerable)
          Dim user As New DirectoryEntry(member)
          users.Add(user.Name)
        Next
      End If
    End Using
  End Using
  Return users
End Function

nahlásit spamnahlásit spam 0 odpovědětodpovědět
                       
Nadpis:
Antispam: Komu se občas házejí perly?
Příspěvek bude publikován pod identitou   anonym.
  • Administrátoři si vyhrazují právo komentáře upravovat či mazat bez udání důvodu.
    Mazány budou zejména komentáře obsahující vulgarity nebo porušující pravidla publikování.
  • Pokud nejste zaregistrováni, Vaše IP adresa bude zveřejněna. Pokud s tímto nesouhlasíte, příspěvek neodesílejte.

přihlásit pomocí externího účtu

přihlásit pomocí jména a hesla

Uživatel:
Heslo:

zapomenuté heslo

 

založit nový uživatelský účet

zaregistrujte se

 
zavřít

Nahlásit spam

Opravdu chcete tento příspěvek nahlásit pro porušování pravidel fóra?

Nahlásit Zrušit

Chyba

zavřít

feedback