strDomain = "WinNT://apfoods.local"


set objDomain = getObject(strDomain)

objDomain.Filter = Array("Computer")

'adsComputer.Filter = Array("service")


for each computer in objDomain
	wscript.echo computer.name & VBTAB & computer.OS
next