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
|