nt 4 user list

I need to generate a list of every user in their domain, and the home
directory listed for each user.

This is a (large) Windows NT 4.0 domain.

Thanks,
Jay

Yoann
Mon Jul 28 16:39:46 CDT 2003

> I need to generate a list of every user in their domain, and the home
> directory listed for each user.
>
> This is a (large) Windows NT 4.0 domain.

Well, here's my first shot at answering an ADSI question...

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set tsLog = objFSO.OpenTextFile("C:\log.txt", 2, True)
Set objDomain = GetObject("WinNT://DOMAIN")
For Each objUser In objDomain
If StrComp(objUser.Class, "user", 1) = 0 Then
tsLog.WriteLine objUser.Name & ", " & objUser.HomeDirectory
End If
Next
tsLog.Close
Set tsLog = Nothing
Set objFSO = Nothing
Set objUser = Nothing
Set objDomain = Nothing