Enumerate user accounts

	Dim oDomain
	Dim strDomainName
	Dim User
	strDomainName = InputBox("Please type the name of the domain")
	Set oDomain = GetObject("WinNT://" & strDomainName)
	oDomain.Filter = Array("User")
	For Each User in oDomain
		 Wscript.Echo User.Name
	Next