It took me all day, but I figured it out. Here is the script that I created/pieced together:
set wshshell = CreateObject("WScript.Shell")
set wshnet = CreateObject("WScript.Network")
Const ForReading = 1
Const SERVERS = "c:\users.txt"
Dim Root
Dim Dir
Dim fso, f
Dim arrText()
Dim iUpperBound...