home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 27 / IOPROG_27.ISO / SOFT / ADSDK.ZIP / Samples / Start / First / first.vbs < prev    next >
Encoding:
Text File  |  1999-01-14  |  665 b   |  26 lines
  1. '----------------------------------------------------------
  2. '--- This script enumerates ADSI objects in a computer 
  3. '---------------------------------------------------------
  4. Dim machineName, domainName
  5.  
  6. machineName = "mymachine"
  7.  
  8. Set comp = GetObject("WinNT://" & machineName & ",computer" )
  9.  
  10. For each obj in comp
  11.   wscript.echo obj.Name
  12. Next
  13.  
  14.  
  15. '----------------------------------------------------------
  16. '--- This script enumerates ADSI objects in a domain
  17. '---------------------------------------------------------
  18. domainName = "myDomain"
  19.  
  20. Set dom = GetObject("WinNT://" & domainName )
  21.  
  22. For each obj in dom
  23.   wscript.echo obj.Name
  24. Next
  25.  
  26.