enumerate domains

	Dim GlobalName
	Dim MyDomain
	Set GlobalName = GetObject("WinNT:")
	For Each MyDomain in GlobalName
		 Wscript.echo MyDomain.Name
	Next