Zjištění všech domén v síti

Postup:
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

Zpět

Autor: The Bozena