Zjištění uživatelů v uživatelské skupině

Private Sub Form_Load()

   Combo1.AddItem Winsock1.LocalHostName

   Dim namespace As IADsContainer
   Dim domain As IADs

   Set namespace = GetObject("WinNT:")

   For Each domain In namespace
      Combo1.AddItem domain.Name
   Next

End Sub

Pak, na událost Combo1_Click zapište:

Private Sub Combo1_Click()

   On Error Resume Next
   Combo2.Clear
   List1.Clear

   Dim container As IADsContainer
   Dim containername As String
   containername = Combo1.Text
   Set container = GetObject("WinNT://" & containername)

   container.Filter = Array("Group")
   Dim group As IADsGroup

   For Each group In container
      Combo2.AddItem group.Name
   Next

End Sub

Seznam uživatelů ze skupiny zjistíme následovně:

Private Sub Combo2_Click()

   On Error Resume Next

   List1.Clear

   Dim group As IADsGroup
   Dim groupname As String
   Dim groupdomain As String

   groupname = Combo2.Text
   groupdomain = Combo1.Text
   Set group = GetObject("WinNT://" & groupdomain & "/" & _
         groupname & ",group")

   For Each member In group.Members
      List1.AddItem member.Name
   Next

End Sub

Zpět