Zjištění všech domén v síti
Do projektu přidejte komponentu WinSock a referenci na Active DS Type Library. Na formulář přidejte ComboBox 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
