List all users of an specific domain Windows

List Domain Users WinNT

'ListUsers.vbs
On Error Resume Next

Set objDomain = GetObject("WinNT://YourDomain")

WScript.echo "Domain : " + objDomain.name

For each objDomainItem in objDomain
  if objDomainItem.Class = "User" then
     WScript.echo objDomainItem.Name + " : Full Name: " + objDomainItem.FullName
  end if
Next
Example

cscript listusers.vbs