home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 27 / IOPROG_27.ISO / SOFT / ADSDK.ZIP / Samples / Start / Enum / vb / Enum.bas next >
Encoding:
BASIC Source File  |  1999-01-18  |  175 b   |  8 lines
  1. Attribute VB_Name = "Module1"
  2. Sub Main()
  3. Set cont = GetObject("WinNT://INDEPENDENCE")
  4. For Each obj In cont
  5.   Debug.Print obj.Name & " (" & obj.Class & ")"
  6. Next
  7. End Sub
  8.