'
'	Author: Michael Battista
'	Date: May 11, 2006
'	Location: http://www.ccs.neu.edu/home/battista/downloads/userlist.vbs
'	Description: When run on a primary domain controller, this script
'	will output a text file called userlist.txt containing a list
'	of all the users in the domain.
'

Option Explicit

Dim objDSE, objContainer, objFSO, objFile, objChild

Set objDSE = GetObject("LDAP://rootDSE")
Set objContainer = GetObject("LDAP://CN=Users," & objDSE.Get("defaultNamingContext"))

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile("userlist.txt", true)

objContainer.Filter = Array("user")
For Each objChild In objContainer
	objFile.WriteLine("'" & objChild.sAMAccountName & "'")
Next

WScript.Echo("User List Written To USERLIST.TXT")