Zjištění uživatelských skupin v doméně

Postup:
Do projektu přidejte komponentu WinSock a referenci na Active DS Type Library. Na formulář přidejte dva ComboBoxy a na událost Form_Load zapište:

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

   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

Zpět

Autor: The Bozena