Local ;
   loNetwork As Object, loItem As Object

If Used("locdomains")
   Use In locdomains
Endif

Create Cursor locdomains (Id c(12),domainname c(20))
loNetwork=Getobject("WinNT:")
For Each loItem In loNetwork
   Insert Into locdomains ;
      (Id,domainname)  ;
      Values ;
      ("LD"+Sys(2015),loItem.Name)
Endfor

Local  ;
   lcDomainID As String, ;
   lcDomainName As String

Create Cursor dcomputers (Id c(12), pid c(12), compname c(20), isonline L)

Select locdomains
Go Top

Do While ! Eof("locdomains")
   lcDomainID=locdomains.Id
   lcDomainName=Rtrim(locdomains.domainname)
   loNetwork=Getobject("WinNT://"+lcDomainName)
   For Each loItem In loNetwork
      If loItem.Class="Computer"
         Insert Into dcomputers ;
            (Id, pid, compname,isonline)  ;
            Values ;
            ("DC"+Sys(2015),lcDomainID,loItem.Name,.F.)
      Endif
   Endfor
   Skip In locdomains
Enddo

x= CREATEOBJECT("WScript.Network")
?x.ComputerName

sys()